Print 2 of Each Page in Order

[ChadDiesel]

I have a report (labels) that print 1 record per page. How can I print 2 of
each in this order: Page 1, Page 1, Page 2 Page 2, Page 3 Page 3...? I'm
using--

DoCmd.OpenReport "Label", acPreview, , "[Load_ID]= " & "'" & Me![Load_ID] &
"'"

--for my "Print Labels" button.

Load_ID being the field that links form and subform, and Label is the report
name.

Thanks,

Chad

[pietlinden]

You're kinda looking in the wrong place. How about something like
this:

Private Sub PrintReports(ByVal strReport As String, ByVal intCopies As
Integer, ByVal blnCollated As Boolean)
'arguments:
'strReport = name of report to open
'intCopies = number of copies to print
'blnCollated = collate yes/no

'--Open the report
DoCmd.OpenReport strReport, acViewPreview, , , acWindowNormal

'--Print out intCopies of said report
DoCmd.PrintOut acPrintAll, , , acHigh, intCopies, blnCollated

End Sub

So your call would be...

PrintReports "Label", 2, False

[ChadDiesel]

You answered another one. Thanks a lot. Worked great.

Chad
<pi********@hotmail.com> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com...

You're kinda looking in the wrong place. How about something like
this:

Private Sub PrintReports(ByVal strReport As String, ByVal intCopies As
Integer, ByVal blnCollated As Boolean)
'arguments:
'strReport = name of report to open
'intCopies = number of copies to print
'blnCollated = collate yes/no

'--Open the report
DoCmd.OpenReport strReport, acViewPreview, , , acWindowNormal

'--Print out intCopies of said report
DoCmd.PrintOut acPrintAll, , , acHigh, intCopies, blnCollated

End Sub

So your call would be...

PrintReports "Label", 2, False