Can't print only 1 page wide-what am I doing wrong?
 

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

Can't print only 1 page wide-what am I doing wrong?
 

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

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


So set

.Zoom = False

In article .com,
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

Can't print only 1 page wide-what am I doing wrong?
 

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

Can't print only 1 page wide-what am I doing wrong?
 

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
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 -