+ Reply to Thread
Results 1 to 4 of 4

Print setup - fit to page - zoom

  1. #1
    Registered User
    Join Date
    09-23-2004
    Posts
    65

    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

  2. #2
    NickHK
    Guest

    Re: 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" <[email protected]> wrote in message
    news:[email protected]...
    >
    > 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
    >




  3. #3
    Norman Jones
    Guest

    Re: Print setup - fit to page - zoom

    Hi Zurn,

    See the following recent thread:

    http://tinyurl.com/jqmxn


    ---
    Regards,
    Norman


    "Zurn" <[email protected]> wrote in message
    news:[email protected]...
    >
    > 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
    >




  4. #4
    Registered User
    Join Date
    09-23-2004
    Posts
    65
    ok thx,

    that's what I needed!

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1