VBA was working fine. now adding blank pages

[mrpwagner]

Through this page I received excellent assistance getting a VBA to print the pages from my call schedule.

I copy forward each month and make changes and it works great!!!!

Until this month when it started adding blank pages. In particular 4 blank pages with the appropriate footer after the unavailability sheet.

WHY?

I have run the macro from previous months where the original does not have the extra 4 pages......and am now getting the additional four pages.

Any assistance would be welcome.






Private Sub October2017FullPrintout_Click()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With


Sheets("Assignments").Select
With ActiveSheet.PageSetup
.Printarea = "$C$286:$Z$316"
.Orientation = xlLandscape
End With


Sheets("Unavailability").Select
With ActiveSheet.PageSetup
.Printarea = "$C$286:$BB$408"
.Orientation = xlLandscape
End With


Sheets("Yearly Calculations 2017").Select
With ActiveSheet.PageSetup
.Printarea = "$a$9:$ar$34"
.Orientation = xlLandscape
End With


Sheets(Array("2017.10 Printout", "2017.10 Calculations", "Assignments", "Unavailability", "Yearly Calculations 2017")).PrintOut


With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub

 

[mrpwagner]

Figured it out!!!!

Expanded some things so there was an edge of the selected cells that was not within the page margins. Once I had adjusted the margins everything printed on the requisite number of pages. I knew it would be easy.....just wasn't seeing it.