Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Setting the print area in page set up to print 1 page wide by 2 pages tall | Excel Discussion (Misc queries) | |||
Page Setup Not Fitting To One Page Wide | Excel Programming | |||
Problem Scaling to 1 Page Wide | Excel Discussion (Misc queries) | |||
Printing: Best Fit (1 Page Wide) | Excel Programming | |||
Page Header with Fit to 1 page wide | Excel Programming |