Another possible solution may be to output the pages as .ps files,
convert them to PDF and merge them using Ghostscript?

But again I don't know how to get a the script to recoginise the number
of pages on sheet1 and output them appropriately. What I have so far
is...

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

But this won't work if there is more or less that 6 pages on sheet1


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