Sheets to PDF pages

Export multiple sheets as pages in 1 pdf, doc, still rough and not elegant as needed, needs work

' - Export multiple sheets into 1 PDF
Sheets(Array("PDF1", "PDF2", "PDF3")).Select
Sheets("PDF1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\ANmar.Systems\WWRutherford\WeeSS v0.24.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False

Views 49 Downloads 19

Perm link