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