How to grab the Page setup "ZOOM" setting when "FIT TO" is selected

[MedievalMan]

For many of our template layouts, "Fit to page" is selected.

When you go to page setup, the corresponding ZOOM % is also displayed.

What I'm trying to do is: a routine that inserts logo, header and footer text to look be the same size for each tab.

Since Excel zooms the header/footer depending on the zoom % you have selected (or fit to), what I do is divide the font size and picture size by the zoom first, so that way when it prints the headers/footers are the same size throughout the different worksheets.

The problem I'm having is:

<code>
Zoom = Worksheets(wsname).PageSetup.Zoom
</code>

The Zoom level is 0 if "Fit to page" is still selected.

Now, I can manually go to every page and selected "Adjust to" instead of "Fit to", but I cannot record a macro to do that, since when I record while doing this manually, I get the following (snippet only):

<code>
ActiveSheet.PageSetup.Zoom = 85
</code>

So, I need a way to be able to grab what the zoom level is when set to "Fit To Page", or any other method that might help.

Thanks in advance,

Matt Lawson

 

[Andrew Poulsom]

Look here (at Tom Urtis' solution):

http://www.mrexcel.com/forum/showthread.php?t=67080

 

[MedievalMan]

Thanks Andrew, it worked like a charm!

I've been trying to figure that one out for a while.. I see "SendKeys" solve some problems otherwise unsolvable.