Previewing a report via a command button

[DasT]

HI!

This ones is probably something obvious but atm i'm stuck..

So far I've got a filter in place using a query which allows the user to select different business sectors for our clients and other criteria, and I need the user to be able to preview a report before printing via a command button button, but so far i've only managed to get it to immediately print using this code:

Private Sub Command13_Click()

    Dim stDocName As String

    stDocName = "Company contacts1"
    DoCmd.OpenReport stDocName

    
    DoCmd.Restore

Exit_btn_follow_up_actions_Click:
    Exit Sub
    

End Sub

Shouldn't be too hard, right?

cheers!

 

[Andrew Fergus]

Try changing this piece of code :

DoCmd.OpenReport stDocName

to this :

DoCmd.OpenReport stDocName, acViewPreview

HTH, Andrew.

 

[DasT]

Thanks, I actually just figured it out myself too