Office: Alle PDF Dateien in Ordner drucken

Hallo zusammen,

ich bin auf Suche nach einer Möglichkeit, alle PDF-Dateien in einem bestimmten Ordner per VBA-Code drucken zu können.

Ich habe einen Code gefunden, der bei mir leider nicht funktioniert:

PHP:

         Sub prcPrint_PDF()
Dim strPath As String, strShortPath As String, strFile As String
Dim FSO, F1
strPath = "M:\MA\Reporting\Auswertungen\Datenbanken\22_Simon\pdfdruck\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.Getfolder(strPath)

For Each F1 In FSO.Files
If CStr(F1) Like "*.pdf" Then
strFile = CStr(F1)
strShortPath = Space(MAX_PATH)

GetShortPathName strFile, strShortPath, MAX_PATH
ShellExecute GetActiveWindow, "print", strShortPath, "", strPath, SW_HIDE
End If
Next F1

End Sub


:)

 

Hallo,

VB-Tec / System / Shell / Exec - Programm zu Dokument starten

Grüße
EarlFred

 

Hallo ich habe ein ähnliches Problem, bin in der Materie aber leider nicht so bewandert wie der Nutzer jimmcguinn.

@EarlFred oder andere Experten: besteht die Möglichkeit hier einen etwas einsteigerfreundlichere Antwort, vielleicht in Form eines funktionierenden Code Grundgerüsts zu bekommen?

Vielen Dank vorab! *Smilie

 

Hallo @Threadenterer

Du musst die Function deklarieren, bevor Du sie verwenden kannst:

Code:

Grüße
EarlFred

 

Was gibt es denn an Parametern für die "Print"-Variante?

Mit dem hier besprochenen Code kann man wunderbar ganze PDF-Dateien ausdrucken. Ich möchte gern aber nur spezielle Seiten ausdrucken, im speziellen Fall immer nur die erste Seite.

Für Hilfestellungen wäre ich sehr dankbar.

 

Hallo,

das ist weder per Windows-API noch per Open-Parameter des PDF-Readers möglich.

 

Schade, trotzdem herzlichen Dank für die schnelle Antwort.