Print PDF file after printing worksheets

[dgraham1962]

Hi,

I am wanting to print a PDF file from my hard drive along with some worksheets. I have the code assigned to a button and it prints the active worksheet plus another worksheet that gets it's name from a cell value.

Regards
David

 

[rakesh seebaruth]

Sub PrintPDFAndWorksheets()
    Dim PDFfile As String
    Dim ws As Worksheet
    Dim wsName As String

    PDFfile = "C:\path\to\your\pdf.pdf" ' update the path to your PDF file
    wsName = Cells(1, 1).Value ' get the name of the worksheet to print from cell A1

    ' open the PDF file
    Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & PDFfile, vbNormalFocus

    ' print the active worksheet
    ActiveSheet.PrintOut

    ' print the second worksheet
    Set ws = ThisWorkbook.Sheets(wsName)
    ws.PrintOut
End Sub