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


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

Print setup - fit to page - zoom
 

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

Print setup - fit to page - zoom
 

Hi Zurn,

See the following recent thread:

http://tinyurl.com/jqmxn


---
Regards,
Norman


"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

Print setup - fit to page - zoom
 

ok thx,

that's what I needed!


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