asked on

How to set default copier to Duplex

Why does the following code result in two 1-sided pages instead of one douple-sided page?

Dim pr As New Printer

pr.Duplex = acPRDPVertical
MsgBox ("Duplex printing set.")

DoCmd.OpenReport "rpQtr-Glossary with disclaimer", acViewPreview, , "HHID = " & ClientNowPrinting

DoCmd.PrintOut acPrintAll, 2, 3, acHigh

DoCmd.Close acReport, "rpQtr-Glossary with disclaimer"

SOLUTION

redeux-tech

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Jeffrey Coachman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

ASKER CERTIFIED SOLUTION

Jeffrey Coachman

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

David_W_R

ASKER

All attempts with above code give the same result... all 3 pages on separate sheets.

To confirm the printer capability, I did print 2-sided by just loading the report, changing settings manually, and printing.

Even changing the Windows default printer to duplex does not have any effect when the VBA code is run.

(Page number specification seems to work even when using acPrintAll instead of PrintFrom)

Jeffrey Coachman

I cannot test this as I do not have Access to a duplex printer, ...so lets see what other experts may post...

David_W_R

ASKER

I got the printer to print 2-sided with help from your suggestions. I couldn't get the 2 Access reports to print on opposite sides of a single page, so I just combined the material from the two reports into one, and moved the information from the report header into the body of the report for each.

Thanks for the quick response and follow-up.

Jeffrey Coachman

great...