Thread: Cannot get VBA to Change PageSetup.FitToPagesWide = 1
View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.misc
Ron de Bruin Ron de Bruin is offline
external usenet poster
  
Posts: 11,123
Default 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
Reply With QuoteReply With Quote