Print setup - fit to page - zoom

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