Help with PageSetup for printing, please?

[Ed from AZ]

(XL2003) I'm trying to get this to adjust so it fills a landscape page
left margin to right margin. I do't care how many pages the rows
cover. Right now, the rows cover three pages.

The first time, the page formatted with A:L for three pages, then M
for three more pages. So I added .FitToPagesWide = 1. Now it put
everything scrunched on ONE page! Well, yeah, I guess that _is_ what
I told it to do, come to think of it!! 8>(

But it's not what I want. How can I make this figure out how to fit
across the width?

Ed

With wks3.PageSetup
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.CenterHorizontally = True
.Orientation = xlLandscape
.PrintArea = "$A$1:$P$" & x
.PrintTitleRows = "$1:$3"
.Zoom = False
.FitToPagesWide = 1
.BlackAndWhite = False
End With

 

[MacGuy]

Try
.FitToPagesWide = 1
.FitToPagesTall = False

 

[Ed from AZ]

That did it!! Thank you!!

Ed

Try
        .FitToPagesWide = 1
        .FitToPagesTall = False







- Show quoted text -