Printing command for more than one copy

[scra]

What is the code to print 2 or more copies of a report? I have a print command button and needs to print multiple copies of a single report.

 

[hymn]

Might help

http://support.microsoft.com/?kbid=209006

Hope this helps
Hymn

 

[hymn]

Might help

http://support.microsoft.com/?kbid=209006

Hope this helps
Hymn

 

[scra]

Thanks, but this is not what I'm looking for. I need to print more than 1 copy of a report not records.

 

[hymn]

-+Sorry wrong one

http://www.mvps.org/access/reports/rpt0001.htm

Hope this helps
Hymn

 

[scra]

Thanks for the code. I have attempted to place the code(s) and no luck. Any ideas as to where?

Private Sub cmd_Print_Location1_Click()
On Error GoTo Err_cmd_Print_Location1_Click

Dim stDocName As String

If chk01 = -1 Then DoCmd.OpenReport "Rpt: Contract SW"

Exit_cmd_Print_Location1_Click:
Exit Sub

Err_cmd_Print_Location1_Click:
MsgBox Err.Description
Resume Exit_cmd_Print_Location1_Click

End Sub

 

[hymn]

Tried and tested on A2002
DoCmd.OpenReport "Birthdays", acViewPreview
DoCmd.PrintOut , , , , 2


Hope this helps
Hymn