Public Sub Drucke_Alle_PDF_Dateien_im_Ordner()
Dim Ordner As String
Dim PDFDateiname As String
Ordner = "C:\Dein\Ordner\Pfad\"
If Right(Ordner, 1) <> "\" Then
Ordner = Ordner & "\"
End If
PDFDateiname = Dir(Ordner & "*.pdf", vbNormal)
While Len(PDFDateiname) <> 0
Drucke_PDF Ordner & PDFDateiname
PDFDateiname = Dir()
Wend
End Sub
Private Sub Drucke_PDF(sPDFDatei As String)
Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & Chr(34) & sPDFDatei & Chr(34), vbNormalFocus
End Sub