Cannot get VBA to Change PageSetup.FitToPagesWide = 1
2003
The following commands work fine: ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlPortrait ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlLandscape The next commands do not "bomb" but that do not change the PageSetup as listed. ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesWide = 1 ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesTall = 1 I must go to the PageSetup wizard, make the change from 50% to 1 and 1. Any thoughts and VBA changes helpful. TIA EagleOne |
Answer: Cannot get VBA to Change PageSetup.FitToPagesWide = 1
Hi EagleOne,
It sounds like you're having trouble getting VBA to change the "Fit to Pages Wide" and "Fit to Pages Tall" settings in Page Setup. Here are a few things you can try:
I hope one of these solutions works for you! |
Cannot get VBA to Change PageSetup.FitToPagesWide = 1
I got the code below by recording a macro while I manually selected the page
setup. When ever I don't know the format of an instruction for firt method of solving the problem is to try a recorded macro. With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With "EagleOne@microsoftdiscussiongroups" wrote: 2003 The following commands work fine: ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlPortrait ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlLandscape The next commands do not "bomb" but that do not change the PageSetup as listed. ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesWide = 1 ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesTall = 1 I must go to the PageSetup wizard, make the change from 50% to 1 and 1. Any thoughts and VBA changes helpful. TIA EagleOne |
Cannot get VBA to Change PageSetup.FitToPagesWide = 1
Joel, I changes my code as follows:
With ActiveWorkbook.Worksheets("STARS_UMD").PageSetup .PrintArea = "" ' Resets or clears PrintArea .PrintArea = Range(Cells(1, 1), Cells(MyLastRow, MyLastCol)).Address .TopMargin = Application.InchesToPoints(5) .FitToPagesWide = 1 .FitToPagesTall = 1 .Orientation = xlLandscape .PrintGridlines = True End With This code changes all BUT the .FitToPagesWide = 1 and .FitToPagesTall = 1 "Joel" wrote: I got the code below by recording a macro while I manually selected the page setup. When ever I don't know the format of an instruction for firt method of solving the problem is to try a recorded macro. With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With "EagleOne@microsoftdiscussiongroups" wrote: 2003 The following commands work fine: ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlPortrait ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlLandscape The next commands do not "bomb" but that do not change the PageSetup as listed. ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesWide = 1 ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesTall = 1 I must go to the PageSetup wizard, make the change from 50% to 1 and 1. Any thoughts and VBA changes helpful. TIA EagleOne |
Cannot get VBA to Change PageSetup.FitToPagesWide = 1
Add Zoom
With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveSheet.PrintOut -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "EagleOne@microsoftdiscussiongroups" rosoft.com wrote in message ... Joel, I changes my code as follows: With ActiveWorkbook.Worksheets("STARS_UMD").PageSetup .PrintArea = "" ' Resets or clears PrintArea .PrintArea = Range(Cells(1, 1), Cells(MyLastRow, MyLastCol)).Address .TopMargin = Application.InchesToPoints(5) .FitToPagesWide = 1 .FitToPagesTall = 1 .Orientation = xlLandscape .PrintGridlines = True End With This code changes all BUT the .FitToPagesWide = 1 and .FitToPagesTall = 1 "Joel" wrote: I got the code below by recording a macro while I manually selected the page setup. When ever I don't know the format of an instruction for firt method of solving the problem is to try a recorded macro. With ActiveSheet.PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With "EagleOne@microsoftdiscussiongroups" wrote: 2003 The following commands work fine: ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlPortrait ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.O rientation = xlLandscape The next commands do not "bomb" but that do not change the PageSetup as listed. ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesWide = 1 ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.F itToPagesTall = 1 I must go to the PageSetup wizard, make the change from 50% to 1 and 1. Any thoughts and VBA changes helpful. TIA EagleOne |
Cannot get VBA to Change PageSetup.FitToPagesWide = 1
Ron,
As usual the fix-it-man rules again. Is a pleasure to see you active after all you have done over the years for the art of Excelling. Thanks EagleOne "Ron de Bruin" wrote: Add Zoom With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveSheet.PrintOut |
Cannot get VBA to Change PageSetup.FitToPagesWide = 1
Hi EagleOne
You are welcome -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm wrote in message ... Ron, As usual the fix-it-man rules again. Is a pleasure to see you active after all you have done over the years for the art of Excelling. Thanks EagleOne "Ron de Bruin" wrote: Add Zoom With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveSheet.PrintOut |
All times are GMT +1. The time now is 11:36 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com