Preview a report

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to preview a report rather than print it but do not where to put
the acpreview option in the following line of code:

Private Sub Preview_Click()
On Error GoTo Err_Preview_Click

Dim stDocName As String
stDocName = "Information Sheets"

DoCmd.OpenReport "Information Sheets", , , "[VerticalName]= '" &
Me.Vertical & "'"


Exit_Preview_Click:
Exit Sub

Err_Preview_Click:
MsgBox Err.Description
Resume Exit_Preview_Click

End Sub

Thanks
 
DoCmd.OpenReport "Information Sheets", acViewPreview, , "[VerticalName]=
'" & Me.Vertical & "'"
 
Back
Top