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"
David_W_RAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

redeux-techCommented:
Is the default setting for your print driver in Windows set-up for two-sided
printing and your report in Access is set up to use the default printer?
0
Jeffrey CoachmanMIS LiasonCommented:
I'm confused, ...Your code says to PrintAll, but yet you are specifying pages 2 and 3 only...?

What happens when you try it like this?:

 Dim pr As New Printer
       
        pr.Duplex = acPRDPVertical
        MsgBox ("Duplex printing set.")
       
        DoCmd.OpenReport "rpQtr-Glossary with disclaimer", acViewPreview, , "HHID = " & ClientNowPrinting
       
        DoCmd.PrintOut
       
        DoCmd.Close acReport, "rpQtr-Glossary with disclaimer"
0
Jeffrey CoachmanMIS LiasonCommented:
You may also need this:

 Dim pr As New Printer
 Set  pr  = Application.Printer      
       
        pr.Duplex = acPRDPVertical
        MsgBox ("Duplex printing set.")
       
        DoCmd.OpenReport "rpQtr-Glossary with disclaimer", acViewPreview, , "HHID = " & ClientNowPrinting
       
        DoCmd.PrintOut
       
        DoCmd.Close acReport, "rpQtr-Glossary with disclaimer"
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
The Ultimate Tool Kit for Technolgy Solution Provi

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy for valuable how-to assets including sample agreements, checklists, flowcharts, and more!

David_W_RAuthor Commented:
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)
0
Jeffrey CoachmanMIS LiasonCommented:
I cannot test this as I do not have Access to a duplex printer, ...so lets see what other experts may post...
0
David_W_RAuthor Commented:
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.
0
Jeffrey CoachmanMIS LiasonCommented:
great...
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Development

From novice to tech pro — start learning today.