Hi there all, can someone advise me on how i would go about modifying this code so that it will print 3 copies of the report in access 97?

Private Sub printrpt_Click()
On Error GoTo Err_printrpt_Click

Dim stDocName As String

stDocName = "rptSamSteel"
DoCmd.OpenReport stDocName, acNormal

Exit_printrpt_Click:
Exit Sub

Err_printrpt_Click:
MsgBox Err.Description
Resume Exit_printrpt_Click

End Sub

Thank you in advance.

TIDMAN.... :confused:

check the DoCmd.PrintOut command....

One of its options it the number of copies

Greetz

Thankyou namliam, where will i finf the DoCmd.PrintOut command?

TIDMAN..... :confused:

It is there in AXP, dunno about other versions at the moment

If all else fails...

DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal

Thank you so much i am going with the repeated Docmd.

Thanks again. :D