+ Reply to Thread
Results 1 to 2 of 2

Print each sheet to PDF Printer NOT Using Save as PDF Function

  1. #1
    Registered User
    Join Date
    03-13-2018
    Location
    Pittsburgh, PA
    MS-Off Ver
    2010
    Posts
    1

    Print each sheet to PDF Printer NOT Using Save as PDF Function

    I need to save all sheets in a workbook using my pdf printer (Foxit PhantomPDF Printer on Ne04) using the sheet name as the filename. I believe i need to use my pdf printer vs the Save as PDF function (see below)

    I was using the code below, but it seems to save the sheets in landscape and in a size larger than the regular 8.5x11, which i need it to be. I have checked the default settings for Microsoft Print to PDf and they are set to Portrait, Letter size. Those are the only options under the printing preferences


    Dim ws As Worksheet

    For Each ws In Worksheets
    ws.Select
    nm = ws.Name

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="\\Server4\c$\Soft\Reporting Center" & nm & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False

    Next ws

  2. #2
    Forum Guru shg's Avatar
    Join Date
    06-20-2007
    Location
    The Great State of Texas
    MS-Off Ver
    2003, 2010
    Posts
    39,050

    Re: Print each sheet to PDF Printer NOT Using Save as PDF Function

    Welcome to the board.

    Please take a few minutes to read the Forum Rules, and then edit your post to wrap your code with CODE tags.

    Thanks.
    Entia non sunt multiplicanda sine necessitate

+ 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