How to open multiple worksheets into one .PDF

[Tazyote]

Good Morning Folks!

I am trying to converts several worksheets into a .pdf document and have spent a few hours surfing and have come up with this so far:

Sub PDFPrintNSave()
Application.ScreenUpdating = False
Sheets(Array("Sheet 1", "Sheet 2")).Sheet1 , , 1
Sheet1.ExportAsFixedFormat Type:=x1TypePDF, Filename:="C:\PDF\1on1.pdf", OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub

The problem I can't seem to get past is in the second line (bolded). I cannot figure out what should be input here to make the array work. Any ideas?

[BeachRock]

Hi Tazyote,

Take a look here: multiple-sheets-to-pdf

[Jakobshavn]

See my answer here:

http://stackoverflow.com/questions/2...51096#20751096

[TMS]

Try:

Please Login or Register  to view this content.

Regards, TMS

[Tazyote]

Thanks, These all work great. I wish I could have found these this morning.

[TMS]

You're welcome.