What I have so far is...

Sub printout()
Sheets("sheet1").Select
ActiveWindow.SelectedSheets.printout From:=1, To:=1, Copies:=1
Sheets("sheet2").Select
ActiveWindow.SelectedSheets.printout From:=1, To:=1, Copies:=1
Sheets("sheet1").Select
ActiveWindow.SelectedSheets.printout From:=2, To:=2, Copies:=1
Sheets("sheet2").Select
ActiveWindow.SelectedSheets.printout From:=1, To:=1, Copies:=1
Sheets("sheet1").Select
ActiveWindow.SelectedSheets.printout From:=3, To:=3, Copies:=1
Sheets("sheet2").Select
ActiveWindow.SelectedSheets.printout From:=1, To:=1, Copies:=1
End Sub

But this results in individual sheets being sent to the printer so it
will not print on both sides of the page even though it is set to
duplex.

Also I have to manually edit the code if there are more or less pages
on sheet1. It would be handy if the code could check the number of
pages itself.


--
dziw
------------------------------------------------------------------------
dziw's Profile: http://www.excelforum.com/member.php...o&userid=10422
View this thread: http://www.excelforum.com/showthread...hreadid=562818