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

NickHK

"Zurn" wrote in message
...

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


--
Zurn
------------------------------------------------------------------------
Zurn's Profile:
http://www.excelforum.com/member.php...o&userid=14645
View this thread: http://www.excelforum.com/showthread...hreadid=539788