Results 1 to 3 of 3

Thread: VBA print to PDF issue on windows 10
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Oct 2019
    Posts
    2
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Post VBA print to PDF issue on windows 10

    Hi,

    I'm quite new with VBA coding and need to solicit help from you.

    I have an existing coding regarding the print to pdf using adobe acrobat. My laptop was upgraded to windows 10 and the adobe acrobat was removed and changed to microsoft print to pdf. Now my coding didn't work eventhough we installed adobe distiller. this is where the issue pointed me:

    Option Explicit

    Public WithEvents odist As PdfDistiller

    Private Sub Class_Initialize()
    Set odist = Nothing
    Set odist = New PdfDistiller
    End Sub

    ---------------------------------------------------------------------------------------------------------------------------------------------------------------

    sCurrentPrinter = Application.ActivePrinter 'Save the currently active printer
    sPDFVersionAndPort = "Adobe PDF on Ne05:"
    sPSFileName = myPath & Year(Date) & "-" & DNMonth & "-" & DNFName & ".ps" 'Name of PS file
    sPDFFileName = myPath & Year(Date) & "-" & DNMonth & "-" & DNFName & ".pdf" 'Name of PDF


    ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=sCurrentPrinter, PrintToFile:=True, PrToFileName:=sPSFileName 'Prints to PS
    'ThisWorkbook.Sheets.PrintOut ActivePrinter:=sPDFVersionAndPort, PrintToFile:=True, PrToFileName:=sPSFileName 'Prints to PS

    Call appDist.odist.FileToPDF(sPSFileName, sPDFFileName, sJobOptions)

    On Error GoTo HERE

    'Creates PDF

    Kill sPSFileName 'Removes PS
    Kill myPath & Year(Date) & "-" & DNMonth & "-" & DNFName & ".log"

    Application.ActivePrinter = sCurrentPrinter 'Change back to the original printer

    DNNum = DNNum + 1

    Set appDist = Nothing



    Thank you very much for your help

  2. #2
    Board Regular rpaulson's Avatar
    Join Date
    Oct 2007
    Location
    Fremont, OH USA
    Posts
    1,050
    Post Thanks / Like
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)

    Default Re: VBA print to PDF issue on windows 10

    Adobe is not required to create a pdf

    try this One-Liner

    Code:
    Sub PDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\results\test.pdf"
    End Sub
    hth,

    Ross

  3. #3
    New Member
    Join Date
    Oct 2019
    Posts
    2
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: VBA print to PDF issue on windows 10

    Quote Originally Posted by rpaulson View Post
    Adobe is not required to create a pdf

    try this One-Liner

    Code:
    Sub PDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\results\test.pdf"
    End Sub
    hth,

    Ross


    Hi Ross,

    Thank you for the coding. It worked.

    Regards,

    A.Carlos

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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