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

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

--
pianoma
-----------------------------------------------------------------------
pianoman's Profile: http://www.excelforum.com/member.php...fo&userid=3371
View this thread: http://www.excelforum.com/showthread.php?threadid=54939

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.

pianoman wrote:
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
Gareth

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.

--
Regards,
Tom Ogilvy


"Andrew B" wrote:

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