I have a macro to print three sections of a sheet. It works fine with one exception, it prints in three separate commands. I would like to have one print event that contains the three pages which, when printing to a pdf, will allow for one file containing the three sheets. Any ideas?
Thanks
Following is the code;
Sub Print_Sales_Sup_Doc_Appliance()
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$62"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.PageSetup.PrintArea = "$H$1:$M$62"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 2
End With
ActiveSheet.PageSetup.PrintArea = "$A$65:$M$136"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("B4:C4").Select
End Sub
Bookmarks