Thread
:
Why is this PageSetup Macro So Slow?
View Single Post
#
5
[email protected]
Posts: n/a
I found the reason the macro below didn't work.
In XL4 a landscape Orientation should be "2" not "xlLandscape". When I set
Orientation:="2" everything worked.
Dennis
wrote:
I tried it ran but but it didn't work. The Page Setup values did not change.
Here is my macro code:
Option Explicit
Sub Page_SetupXL4()
'=====Adjust PageSetup using PageSetupXL4M sub=====
PageSetupXL4M RightHead:="&F &D &T &P/&N", TopMarginInches:="0.75", _
BottomMarginInches:="0.5", PrintHeadings:="true", _
PrintGridlines:="true", _
Orientation:="xlLandscape", Zoom:="75"
End Sub
JE McGimpsey wrote:
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
Reply With Quote