Take a look he

http://www.mcgimpsey.com/excel/pagesetup.html



In article ,
wrote:

Below is a page setup macro that runs real fast on my Excel2000 WinXP Pro
Desktop but real slow on Excel2000 WinXP Home Laptop.

I put msgboxes in to see what was slowing this macro up and the .TopMargin,
.BottomMargin, .Orientation and .PrintHeadings seemed to be taking a lot of
time
to finish.

Any suggestions on how to speed this code up?

Thanks.

Dennis

Sub Page_Setup()

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.RightHeader = "&F &D &T &P/&N"
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
.Zoom = 75
.PrintHeadings = True
.PrintGridlines = True
End With
End Sub