PDF-Dateien automatisch drucken

[cameeel]

Hallo Leute,

ich suche ein Möglichkeit wie ich unter Windows beliebig viele PDF-Dateien (derzeit etwa 1.300) automatisch drucken lassen kann.

Ansatz (Batch):

Code:
@for %%p in ("H:\xampplite\htdocs\bookdbs\trunk\static\bestellzettel\*.pdf") do "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" /p %%p

Der Code funktioniert soweit. Einzige Probleme:
* Acrobat Reader verlangt eine Bestätigung um den Druckvorgang zu starten
* Acrobat Reader schließt sich nicht wieder automatisch

Hintergrundinformationen:
* PDF's werden automatisch mit PHP/LaTeX erstellt.

Danke für eure Hilfe, es muss übrigens nicht zwangsläufig Batch sein.

Gruß.

[ronaldh]

Unter VB nutze ich dafür die API-Funktion ShellExecute. Das funktioniert einwandfrei, man muss nach dem Druck nur in einer Schleife prüfen, ob das Acrobat Fenster noch offen ist.

[cameeel]

Könntest du mir bitte den entsprechenden Code zur Verfügung stellen?

[ronaldh]

Wie gesagt, ich mache das in VB6. Das sollte aber in VBScript auch so ähnlich möglich sein.

Hiermit wird der Ausdruck durchgeführt, und der Acrobat Reader hinterher geschlossen:

Code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const WM_CLOSE = &H10 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED As Long = 2 Const SW_HIDE As Long = 0 Private Sub PrintPDF(FileName as String) Dim Ausdruck As Boolean Dim WinWnd As Long Dim b as Long Ausdruck = ShellExecute(Me.hwnd, "print", Filename, vbNullString, vbNullString, SW_HIDE) DoEvents Sleep 2000 '2 Sekunden warten Do While WinWnd = 0 b = b + 1 '' Schleife, Adobee druckt wohl noch DoEvents WinWnd = FindWindow(vbNullString, "Adobe Reader") DoEvents If b > 3000 Then 'Gucken, ob Adobe Reader mit Datei geöffnet ist (GetFileFromPath ist eine kleine Funktion, die den Dateinamen ohne Pfad zurück gibt) WinWnd = FindWindow(vbNullString, "Adobe Reader - [" & GetFileFromPath(Filename) & "]") Else WinWnd = FindWindow(vbNullString, "Adobe Reader") End If If b > 9000 Then '.Adobe Reader nicht da, ist wohl schon beendet Exit Do End If Loop If b <= 9000 Then '. . . . . . . Acrobat Reader schließen PostMessage WinWnd, WM_CLOSE, 0&, 0& End If End Sub

Ich hoffe, Du kommst damit weiter. Da das ganze bei mir Teil einer komplexen Funktion ist, habe ich hier nur die relevanten Teile raus geholt.

Grüsse
ronaldh

[cameeel]

Werde ich mir in den nächsten Tagen genauer ansehen, danke.