Slight Adjustment needed to Code

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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/10010-slight-adjustment-needed-to-code.html

Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click

End Sub

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



*

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

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

"Bob" wrote in message news:e4lv9i$9i7$1@lust.ihug.co.nz...
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10010
>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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10010
>

nihao
"Bob" дÈëÓʼþ news:e4lv9i$9i7$1@lust.ihug.co.nz...
> I want to be able to view this Report before printing
> How do I adjust this code?
>
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10010
> Private Sub Command27_Click()
> On Error GoTo Err_Command27_Click
>
> Dim stDocName As String
>
> stDocName = "rptHoldingNames"
> DoCmd.OpenReport stDocName, acNormal
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10010
>
> Exit_Command27_Click:
> Exit Sub
>
> Err_Command27_Click:
> MsgBox Err.Description
> Resume Exit_Command27_Click
>
> End Sub
>
> Thanks in advance.........Bob Vance
>
>