Sheets to PDF pages

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

CodeFunctionName
What is this?

Public

Not Tested

Original 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 3,394

Downloads 1,279

CodeID
DB ID