ActiveSheet.PageSetup.Zoom

G

Guest

I'm trying to set the pagesetup to Fit 1 page wide in code. The number of
pages will vary from 1 to 50, so i have no way to predict that. So, i do
the following:
With ActiveSheet.PageSetup
.Zoom = True
.FitToPagesWide = 1
.FitToPagesTall = 99
End With

I receive an error at the .Zoom = True

When i look at the page setup, i see the 1 and 99, but it does not show me
the "Fit to:" option selected.

Thank you,

Mark
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

PageSetup.Zoom=TRUE 3
Page Breaks in VBA Q 6
Page set up for all worksheets 7
PageSetup 3
Gridlines 1
Pagesetup Property error in excel 1
Print setup - fit to page - zoom 3
Macro for Page Setup - Fit to one page 1

Top