Slight Adjustment needed to Code

[Bob]

I want to be able to view this Report before printing
How do I adjust this code?

Private Sub Command27_Click()
On Error GoTo Err_Command27_Click

Dim stDocName As String

stDocName = "rptHoldingNames"
DoCmd.OpenReport stDocName, acNormal

Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click

End Sub

Thanks in advance.........Bob Vance

 

[Bob]

Got it thanks, worked it out
Private Sub Command27_Click()
DoCmd.OpenReport "rptHoldingNames", acViewPreview, , , , "HoldingNames"
End Sub

 

[xingxing]

nihao

 

[xingxing]

nihao