Printing on Both sides

[Gary P. Hall]

The following code takes two reports and collates them as
if they were one. I can't find a way to modify the code
so the two reports print to both sides of the page.

Setting the printer properties for each report to print on
both sides does not work.

Any ideas?


Function CollateReports(NumPages, Rpt1 As String, Rpt2 As
String)

'Example
'?CollateReports(2,"Rpt How To Print a Constant Number of
Lines","Rpt How To Print Line Number for Each Record/Group
on Report")

Dim MyPageNum As Integer

' Set the page number loop and alternate printing the
report pages.

For MyPageNum = 1 To NumPages

' NumPages is the number of pages to print.

DoCmd.SelectObject A_REPORT, Rpt1, True
DoCmd.PrintOut A_PAGES, MyPageNum, MyPageNum
DoCmd.SelectObject A_REPORT, Rpt2, True
DoCmd.PrintOut A_PAGES, MyPageNum, MyPageNum

Next MyPageNum

End Function


Gary