VBA: Loop through pdfs and print

[jaime1182]

Hi guys. Hope you are all well. I was hoping there is a solution to this dilemma I have.

I have a folder with 500+ pdfs, and I need to print a few pages from each.

Is it possible for a VBA to loop through all the pdfs in a folder (folder path to in cell A1), and print only certain pages (value in A2)?

Would it also be able to do a log on another worksheet listing filename in column A and any errors in column B (ie - page not found?)

Am currently doing this manually and am already struggling...

 

[jaime1182]

I was able to find a code from John_W that worked somewhat. Was able to print the whole PDF on the printer (yay!)

Option Explicit

Public Sub Print_All_PDF_Files_in_Folder()

    Dim folder As String
    Dim PDFfilename As String
   
    folder = "C:\temp\excel\"    'CHANGE AS REQUIRED
    If Right(folder, 1) <> "\" Then folder = folder & "\"
     
    PDFfilename = Dir(folder & "*.pdf", vbNormal)
    While Len(PDFfilename) <> 0
        Print_PDF folder & PDFfilename
        PDFfilename = Dir()  ' Get next matching file
    Wend

End Sub

Private Sub Print_PDF(sPDFfile As String)
    Shell "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe /p /h " & Chr(34) & sPDFfile & Chr(34), vbNormalFocus
End Sub

Just wondering if there was a way to print only specific pages only?

Cheers!