How to set page orientation to "landscape"

S

Steve P

Hey everybody,
I'm writing a script that evaulates a spreadsheet in excel and conditionally
formats it based on content. In addition to conditionally formatting the
spreadsheet, I also want the VBA to prep the spreadsheet for printing.

When I run the following code I am told that I am using the
XLPageOrientation property incorrectly...please advise:

With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Bold""&18Pooled Staff Level 31, 33, Interns"
.CenterFooter = "&""Arial,Bold""&10&P of &N"
.XlPageOrientation.xlLandscape
.XlPaperSize = xlPaperLegal
.TopMargin.InchesToPoints = 1
.BottomMargin.InchesToPoints = 1
.LeftMargin.InchesToPoints = 0.75
.RightMargin.InchesToPoints = 0.75
.HeaderMargin.InchesToPoints = 0.5
.FooterMargin.InchesToPoints = 0.5
.PrintTitleRows = ActiveSheet.Rows(2).Address
.PrintTitleColumns = ActiveSheet.Columns("A:B").Address
.XlOrder = xlDownThenOver
.XlObjectSize = xlFitToPage

End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Print sub returns 4
Setting Print Range 2
Page setup too slow 2
Print area - selection 4
Setting excel to landscape and setting print area from access 2
Print Routine Error 4
Printing-don't need half this code but which half?:-) 5
PrintQuality setting - is -3 a valid setting? 3

Top