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

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:

1. Make sure you're using the correct syntax for setting these properties. The correct syntax is:
   
   Formula:

   ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.FitToPagesWide = 1
ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.FitToPagesTall = 1 

2. Check that the worksheet you're trying to modify is the active sheet. If it's not, you'll need to activate it first using the following code:
   
   Formula:

   ActiveWorkbook.Worksheets("STARS_UMD").Activate 

3. Try setting the "Zoom" property to 100% before setting the "Fit to Pages" properties. This can sometimes help with issues related to scaling. Here's an example:
   
   Formula:

   ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.Zoom = False
ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.Zoom = 100
ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.FitToPagesWide = 1
ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.FitToPagesTall = 1 

4. If none of the above solutions work, you may need to use the Page Setup dialog box to manually set the "Fit to Pages" properties. You can do this using the following code:
   
   Formula:

   ActiveWorkbook.Worksheets("STARS_UMD").PageSetup.Dialogs(xlPageSetupDialog).Show 


I hope one of these solutions works for you!

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

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

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

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

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