Thread: Cannot get VBA to Change PageSetup.FitToPagesWide = 1
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
EagleOne@microsoftdiscussiongroups[_2_] EagleOne@microsoftdiscussiongroups[_2_] is offline
external usenet poster
  
Posts: 7
Default 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

Reply With QuoteReply With Quote