View Single Post
  #5   Report Post  
 
Posts: n/a
Default

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