jacksonworld
02-26-2008, 06:50 PM
Here is a simple problem for someone kind enough to help.
I am wanting to to adjust the zoom and page setup for all sheets except the first one.
Below is the code for dumping for changing the zoom and page setup. All I require is the preceding few lines.
Thank you.
ActiveWindow.Zoom = 85
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With
I am wanting to to adjust the zoom and page setup for all sheets except the first one.
Below is the code for dumping for changing the zoom and page setup. All I require is the preceding few lines.
Thank you.
ActiveWindow.Zoom = 85
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
End With