Multi Sheet Printing.

[WERNER SLABBERT]

Hey All you excel gods out there...
here is my Macro for printing 4 Different sheets at once.

Sub PRINTALL()
    
    Sheets(Array("Index", "Main", "Addendum Page", "Notes Pages")).Select
    Application.ActivePrinter = "CutePDF Writer on CPW2:"
    ExecuteExcel4Macro _
    "PRINT(1,,,1,,,,,,,,2,""CutePDF Writer on CPW2:"",,TRUE,,FALSE)"

End Sub

when i run it it starts with the spooling like normal and then roughly 1/3 of the way ( 247 pages ) it pops out a save message. for cute pdf. wich is wrong cause it has to only do this after all the pages have been spooled.and then at the end of the spooling it posp out another save message. ...

then trying to open the first gives you a corrupted error ... to the effect of the pdf is stuffed. and then the second opens but only the butt end of my workbook printed there. like the last two sheets only...

any advise on this crappy error?

Regards