Hallo,
ich habe Probleme beim Drucken von PDF-Dokumenten, die mich bald in den Wahnsinn treiben, weil ich mich schon seit Tagen damit herumschlage und das sich herauskristallisierende Problem aus meiner Sicht etwas mysteriös ist.
Ich möchte alle PDF-Dateien in einem Ordner ausdrucken und dann weglöschen. Dazu benutze ich Ghostwriter und Ghostviewer. Auf meinem Testrechner Windows XP läuft alles wie gewünscht. Der entscheidende Codeschnipsel lautet:
Delphi-Quellcode:
ShellExecute(0, 'open', PChar(strShellExecute),
PChar(' -landscape "' +
IncludeTrailingPathDelimiter(QuellpfadPDF) +
DateinamePDF + '"'), '', SW_HIDE);
Sleep(2000);
ShellFileOperation(IncludeTrailingPathDelimiter(QuellpfadPDF) +
DateinamePDF,
IncludeTrailingPathDelimiter(ZielpfadPDF) +
DateinamePDF,
FO_MOVE);
Die Variable strShellExecute hat den Wert 'C:\gs\Ghostgum\gsview\gsprint.exe'.
Tatsächlich soll das Progrämmchen jedoch auf einem Windows 2008 Server ausgeführt werden. Das funktioniert auch ganz prima, wenn man das Programm händisch ausführt (Doppelklick auf die exe). Wenn ich das Programm aber über die Geplante Tasks intervallartig laufen lasse, wird kein Druck ausgelöst. Das Programm startet aber laut TaskManager und verschiebt auch alle Dateien wie gewünscht. Die gsprint.exe scheint aber irgendwie nicht richtig auszulösen.
Hat jemand eine Idee, wo das hängen könnte?