Duplexing 2 page reports

S

Sasquatch

I'm using Access XP and I'm having a little trouble getting reports to
duplex. I have the following code included for a report with 2 pages:

'************************************************
Private pntCurrentPrinter As Printer

Private Sub Report_Open(Cancel As Integer)
Set pntCurrentPrinter = Me.Printer
pntCurrentPrinter.Duplex = acPRDPHorizontal 'Open to left
End Sub

Private Sub Report_Close()
pntCurrentPrinter.Duplex = acPRDPSimplex 'Off
Set pntCurrentPrinter = Nothing
End Sub
'************************************************

If I open the report in preview mode (DoCmd.OpenReport strName,
acViewPreview)
then click the print button it works perfectly. The problem is when I just
print the report w/o previewing it first (DoCmd.OpenReport strName,
acViewNormal) then it does not duplex.

Unfortunately (for me), I have about 100 different reports and I have about
35 macros which each print a different sequence of reports, depending on
other factors. Each macro prints from 5-10 reports and I need to be able to
duplex certain ones (not all of them...some reports are to remain
non-duplexed...if thats a word).

Can anyone give me a little insight on how to set the printer's duplex on
when a report prints and then back off when its done printing?

Thanks in advance.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top