E
Ed from AZ
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
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