Print setup - fit to page - zoom

[Zurn]

If I setup my print, when fitting to 1 page, I want to know the
percentage% the page is set.
The code below gives 0

Any ideas?

Function PercentOnePage_portrait() As Integer
'start from an active sheet
With activeSHEET.PageSetup
..Orientation = xlPortrait
..FitToPagesWide = 1
..FitToPagesTall = 1
End With
PercentOnePage_portrait = activeSHEET.PageSetup.Zoom ???
End Function

 

[NickHK]

Zurn,
Search this group, because there was the exact same question recently, with
a couple of solutions.

NickHK

 

[Norman Jones]

Hi Zurn,

See the following recent thread:

http://tinyurl.com/jqmxn

 

[Zurn]

ok thx,

that's what I needed!