I've written this loop to modify the page setup for each page I need to print. When i step through it, it does indeed go to each page, but when it's done and I manually check the settings, the FitToPages...settings never stick. The footer is fine, but I can't tell it to print each page on ONE page. Anyone think they can help? I got the code from a recorded macro.
For ContentCtr = 3 To (SheetCounter + 1) 'SheetCounter is defined earlier as thhe number of sheets I'm interested in
Sheets(ContentCtr).Select
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
ShtNum = ContentCtr
Sheets(ContentCtr).PageSetup.RightFooter = "Page " & ShtNum
Next ContentCtr
For ContentCtr = 3 To (SheetCounter + 1) 'SheetCounter is defined earlier as thhe number of sheets I'm interested in
Sheets(ContentCtr).Select
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
ShtNum = ContentCtr
Sheets(ContentCtr).PageSetup.RightFooter = "Page " & ShtNum
Next ContentCtr