Preview a report

[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

 

[Douglas J. Steele]

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