(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:P
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

Try
.FitToPagesWide = 1
.FitToPagesTall = False


"Ed from AZ" wrote:

(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:P
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

That did it!! Thank you!!

Ed


On Mar 27, 2:08*pm, MacGuy wrote:
Try
* * * * .FitToPagesWide = 1
* * * * .FitToPagesTall = False



"Ed from AZ" wrote:
(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:P
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- Hide quoted text -

- Show quoted text -