Staple reports

[toleafs]

Hello
I have the following code that collates 2 differet reports:

Function CollateReports2(Rpt1 As String, Rpt2 As String)

Dim MyPageNum As Long, _
NumPages As Long

NumPages = PageCount(Rpt1)

'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 acReport, Rpt1, True
DoCmd.PrintOut acPages, MyPageNum, MyPageNum
DoCmd.SelectObject acReport, Rpt2, True
DoCmd.PrintOut acPages, MyPageNum, MyPageNum
Next MyPageNum

End Function

Is there a way to tweak this so that the 2 reports are also stapled?
Thanks in advance for your help

 

[Norie]

I really don't think so - wouldn't that be some sort of printer setting?

Or am I misunderstanding what you mean by 'stapled'.

 

[toleafs]

I thought so....But that didn't work
thanks

 

[Norie]

I really don't know any direct way to set a printer from VBA.

It's probably possible with a whole load of API code but IMO it wouldn't be worth the hassle.