Save excel file as pdf - BUT open at 113%

Posted on 2014-07-23
Last Modified: 2014-07-26
Hello -

I have a monthly EXCEL report that I save as a pdf file for ease of opening during a meeting (EXCEL file large and opens very slowly). I have used the vb code shown below to save to pdf but also just save as pdf manually.  Is there coding that I could enter in the code below that would save the pdf but also open the pdf at 113% vs. having the user clicking the + sign serveral times???


Sub Macro1()
' Macro1 Macro
' Keyboard Shortcut: Ctrl+z
 ChDir "N:\IM NSP\Joes Monthly Reports\Z Flashdrive\Holding"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "N:\IM NSP\Joes Monthly Reports\Z Flashdrive\Holding\10c - CA Supplier Opportunity Variance Report_XXX.2014.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, From:=1, To:=2, OpenAfterPublish:=True

End Sub
Question by:vpopper
    1 Comment
    LVL 21

    Accepted Solution

    Just Add a line ActiveWindow.Zoom=113

    Featured Post

    How to run any project with ease

    Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
    - Combine task lists, docs, spreadsheets, and chat in one
    - View and edit from mobile/offline
    - Cut down on emails

    Join & Write a Comment

    I. Introduction There's an interesting discussion going on now in an Experts Exchange Group — Attachments with no extension ( This reminded me of questions tha…
    Storage devices are generally used to save the data or sometime transfer the data from one computer system to another system. However, sometimes user accidentally erased their important data from the Storage devices. Users have to know how data reco…
    The viewer will learn how to create multiple layers to apply various filters and how to delete areas from each layer’s filter.
    This video demonstrates how to use each tool, their shortcuts, where and when to use them, and how to use the keyboard to improve workflow.

    728 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    24 Experts available now in Live!

    Get 1:1 Help Now