Print 2 pages per sheet

A

Andrew B

Hi
I have created a file that will print reports onto A4 pages, sometimes
up to 30 pages will be printed at a time.
I would like the option sometimes of being able to print 2 pages per
sheet. I would like to do this through a macro and not manually through
the current printer's option/setup dialog box.
Previously, a workaround I have tried is to setup a specially formatted
landscape page, copy two reports to that page and then print it.
Updated shape positions on the original page though don't seem to
transfer when copied.

Is there a simple way through Excel VBA to print 2 pages per sheet ?

TIA

Andrew Bourke
 
P

pianoman

Hi,
Here's a bit of code I've used...

With ActiveSheet.PageSetup
.CenterHeader = "Service Parts - Risk Reviews"
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 2

It's the last two rows you'll need I think...
Hope this helps
Garet
 
A

Andrew B

Hi
Thanks for your suggestion but I think this only works if the data is
setup on the one page to begin with. I'm printing the same page over and
over with some of the data changing between each print.
 
G

Guest

You could try installing another instance of your printer driver and
configuring it to do two sheets per page - then set the activeprinter to that
instance/copy of the printer driver when you want to print this way.
 

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