I want to create a 3 page pdf with 3 different ranges in the same spreadsheet.
How can I do this?
Sub Create3PagePDF()
Dim file_name As Variant
file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF File_ (*.pdf), *.pdf")
ActiveSheet.PageSetup.PrintComments = -4142
Range("B15:AA80").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=file_name, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
I am trying to use an array of ranges but I cant' get it to work!
The 3 or more ranges I want to save to the same PDF file are
Range("B15:AA80"), Range("B85:AA145") and Range("B145:200AA")
Bookmarks