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