I am using the following code to print out a worksheet on a landscaped
page. I want all the columns to fit across the width of one page;
rows can slip onto the next page. In my code, I set FitToPagesWide =
1, but it doesn't do what I think it should.

What am I dong wrong?

Ed


' Prints Sheet2 list
Set rngWork = wks2.UsedRange
With wks2.PageSetup
.Orientation = xlLandscape
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.PrintArea = rngWork.Address
.FitToPagesWide = 1
.CenterHeader = "&D"
.CenterFooter = "Page &P of &N"
.PrintTitleRows = wks2.Rows(1).Address
End With

wks2.PrintOut

From XL/VBA Help ("FitToPagesWide" topic):

If the Zoom property is True, the FitToPagesWide
property is ignored.


So set

.Zoom = False

In article <(E-Mail Removed)>,
Ed from AZ <(E-Mail Removed)> wrote:

> I am using the following code to print out a worksheet on a landscaped
> page. I want all the columns to fit across the width of one page;
> rows can slip onto the next page. In my code, I set FitToPagesWide =
> 1, but it doesn't do what I think it should.
>
> What am I dong wrong?
>
> Ed
>
>
> ' Prints Sheet2 list
> Set rngWork = wks2.UsedRange
> With wks2.PageSetup
> .Orientation = xlLandscape
> .TopMargin = Application.InchesToPoints(1)
> .BottomMargin = Application.InchesToPoints(1)
> .LeftMargin = Application.InchesToPoints(0.5)
> .RightMargin = Application.InchesToPoints(0.5)
> .PrintArea = rngWork.Address
> .FitToPagesWide = 1
> .CenterHeader = "&D"
> .CenterFooter = "Page &P of &N"
> .PrintTitleRows = wks2.Rows(1).Address
> End With
>
> wks2.PrintOut

You should have all these commands:

.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False


--
Regards,
Tom Ogilvy


"Ed from AZ" wrote:

> I am using the following code to print out a worksheet on a landscaped
> page. I want all the columns to fit across the width of one page;
> rows can slip onto the next page. In my code, I set FitToPagesWide =
> 1, but it doesn't do what I think it should.
>
> What am I dong wrong?
>
> Ed
>
>
> ' Prints Sheet2 list
> Set rngWork = wks2.UsedRange
> With wks2.PageSetup
> .Orientation = xlLandscape
> .TopMargin = Application.InchesToPoints(1)
> .BottomMargin = Application.InchesToPoints(1)
> .LeftMargin = Application.InchesToPoints(0.5)
> .RightMargin = Application.InchesToPoints(0.5)
> .PrintArea = rngWork.Address
> .FitToPagesWide = 1
> .CenterHeader = "&D"
> .CenterFooter = "Page &P of &N"
> .PrintTitleRows = wks2.Rows(1).Address
> End With
>
> wks2.PrintOut
>
>

Thanks to both of you. I originally had Zoom = False, just before the
FitToPagesWide setting, but I thought the Help instructions meant that
if either of the FitToPages settings was active, then Zoom was
automatically false, and setting Zoom to a percentage would override
the FitToPages settings. Thanks for setting me straight.

Ed

On Oct 1, 11:36 am, Tom Ogilvy <TomOgi...@discussions.microsoft.com>
wrote:
> You should have all these commands:
>
> .Zoom = False
> .FitToPagesWide = 1
> .FitToPagesTall = False
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "Ed from AZ" wrote:
> > I am using the following code to print out a worksheet on a landscaped
> > page. I want all the columns to fit across the width of one page;
> > rows can slip onto the next page. In my code, I set FitToPagesWide =
> > 1, but it doesn't do what I think it should.
>
> > What am I dong wrong?
>
> > Ed
>
> > ' Prints Sheet2 list
> > Set rngWork = wks2.UsedRange
> > With wks2.PageSetup
> > .Orientation = xlLandscape
> > .TopMargin = Application.InchesToPoints(1)
> > .BottomMargin = Application.InchesToPoints(1)
> > .LeftMargin = Application.InchesToPoints(0.5)
> > .RightMargin = Application.InchesToPoints(0.5)
> > .PrintArea = rngWork.Address
> > .FitToPagesWide = 1
> > .CenterHeader = "&D"
> > .CenterFooter = "Page &P of &N"
> > .PrintTitleRows = wks2.Rows(1).Address
> > End With
>
> > wks2.PrintOut- Hide quoted text -
>
> - Show quoted text -