Printing Embedded Pdfs

  • I am trying to create a one keystroke way to: format a worksheet into one page, wrap all cells, print that worksheet and then print the multiple embedded PDFs... The following code doesn't work for printing the PDFs, but I am not sure how to fix... can you help? Thanks in advance!


    Code
    Sub printembedded()
    Dim pdfObj As OLEObject
    For Each pdfObj In ActiveSheet.OLEObject
    pdfObj.PrintObject
    Next pdfObj
    End Sub
  • Re: Printing Embedded Pdfs


    I honestly don't know if this can be done. I tried it myself, trying to change some things, without much luck. The best I could do was open an embedded PDF, but that's a far cry from printing it and then also closing it afterwards:

    Code
    Sub OpenPDF()
    Application.DisplayAlerts = False
        ActiveSheet.Shapes("Object 1").Select
        Selection.Verb Verb:=xlPrimary
    Application.DisplayAlerts = True
    End Sub


    Does anyone else want to give this a shot?


    I saw a program out there that converts PDF to Excel: PDF to Excel Converter 2.2 . You might have to go this route first?

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!