PDF-Dateien drucken (viele)

[BerndS]

Ein weiters Tool, das man selber mitgeben kann/muss wäre SumatraPDF
Das ist kostenlos und wurde hier mal von Holger Klemt (IBExperts) empfohlen.

[rokli]

Moin,

als erstes mal herzlichen Dank an alle, die sich Gedanken gemacht haben!

Dann zu den Fragen, ob das wirklich gedruckt werden muss: Es handelt sich um Kundenbelege, mit denen als erstes Waren im Lager kommissioniert werden und die dann den Waren als Begleitpapiere beigelegt werden.

Das Mergen von PDF Dokumenten erscheint mir hier im Moment auch die beste Lösung zu werden.

Ich teste mal noch ein bisschen und stelle meine Lösung dann hier ein.

Danke.

[Bernhard Geyer]

Auch wenn der initiale Overhead relativ hoch ist:
https://pdfbox.apache.org/2.0/commandline.html
Kann Mergen und Drucken (über Kommandozeile)

[MyRealName]

Ich nutze DevExpress und den TdxComponentPrinter, wenn es vom SPeicher her überschaubar ist, tausende PDFs gehen da in einem 32-bit Programm nicht.
Wenn es unbekannt viele sind, dann lasse ich mir die Seiten als Bilder geben und male sie selbst auf den Printer.Canvas. Ich brauche die allerdings auch als einen grossen Druckjob.

[himitsu]

Statt PDF als PostScript speichern?
"Gute" Drucker verstehen das direkt.

COPY abc.ps \\servername\printername aber sollte wohl auch im Delphi über CopyFile oder TStream funktionieren, ohne ein Zusatzprogramm dazwischen.
Vielleicht sogar COPY abc.ps LPT1 oder eben \\localhost\printername

[itblumi]

Hi rokli,

schau mal in den folgenden Eigenschaften was er dir dort ausgibt, wenn keine Datei erstellt wird dann dürfte ein Fehler aufgetreten sein.

Delphi-Quellcode:

AConverter.Debug := True;
// string liste mit dem was er macht 
AConverter.StdOut

// errors als strings sollte eigentlich leer sein
AConverter.LastErrors
// error code -> dieser sollte 0 sein falls alles funktioniert hat
AConverter.LastErrorCode

[itblumi]

AConverter.ToPdf gibt dir auch eine Boolean Ausdruck zurück dieser sollte den Fehlercode (LastErrorCode) vor dem beenden der Prozedur prüfen.

Habe Dir das Ganze etwas anschaulicher zusammen gestellt.

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
var
   AConverter   : TGS_Pdfconverter;
   aFiles       : Array[0..9] of String;
   sQuellPfad   : String;
   sZielPfad   : String;
begin
   sQuellPfad   := 'C:\Temp\pdffen\quell\';
   sZielPfad   := 'C:\Temp\pdffen\';

   aFiles[1]   := sQuellPfad + '0174163013.pdf';
   aFiles[2]   := sQuellPfad + '0174163020.pdf';
   aFiles[3]   := sQuellPfad + '0174164010.pdf';
   aFiles[4]   := sQuellPfad + '0174164027.pdf';
   aFiles[5]   := sQuellPfad + '0174164034.pdf';
   aFiles[6]   := sQuellPfad + '0174164041.pdf';
   aFiles[7]   := sQuellPfad + '0174164065.pdf';
   aFiles[8]   := sQuellPfad + '0174164072.pdf';
   aFiles[9]   := sQuellPfad + '0174164089.pdf';

   AConverter := TGS_PdfConverter.Create(sZielPfad);
   AConverter.Params.NoSaver := True;
   AConverter.Debug := True; // debug Ausgabe der Bibliothek aktivieren


   if (AConverter.ToPdf(aFiles, sZielPfad + 'new.pdf', false)) then
     ShowMessage('fertig')
   else begin
     ShowMessage('Fehler: ' + AConverter.LastErrors);
     AConverter.StdOut.SaveToFile(sZielPfad + 'output.log'); // Die Prozess Ausgabe speichern
   end;

   FreeAndNil(AConverter);

Edit: Es kann auch sein das Ghostscript versucht zu ermitteln ob er Schreibrechte in dem Verzeichnis besitzt, dass kann mit unter schief gehen. Dies kannst du mit NOSAVER unterdrücken. Ich habe das noch zusätzlich hinzugefügt im obigen Code.

[itblumi]

Zitat von himitsu:

Statt PDF als PostScript speichern?
"Gute" Drucker verstehen das direkt.

COPY abc.ps \\servername\printername aber sollte wohl auch im Delphi über CopyFile oder TStream funktionieren, ohne ein Zusatzprogramm dazwischen.
Vielleicht sogar COPY abc.ps LPT1 oder eben \\localhost\printername

Ghostscript kann auch direkt drucken nach dem er die Dateien zusammen gestellt hat, leider ist das noch nicht mit dem derzeitigen Converter möglich. Ich bin gerade dabei eine dementsprechende Version dafür auch bereit zu stellen. Da mich das Thema interessiert hat und dies ja auch ein häufiger Anwendungsfall sein kann. Das OutputFile ist dann der Drucker mit dem Prefix (%printer%).

[rokli]

Hi ItBlumi,

habe mir Deine Lösung angesehen und heruntergeladen. Dein beigefügte Testprogramm läuft auch.
Dann habe ich, als ersten Test, das folgende Programm geschrieben:

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
var
   AConverter   : TGS_Pdfconverter;
   aFiles       : Array[0..9] of String;
   sQuellPfad   : String;
   sZielPfad   : String;
begin
   sQuellPfad   := 'C:\Temp\pdffen\quell\';
   sZielPfad   := 'C:\Temp\pdffen\';

   aFiles[1]   := sQuellPfad + '0174163013.pdf';
   aFiles[2]   := sQuellPfad + '0174163020.pdf';
   aFiles[3]   := sQuellPfad + '0174164010.pdf';
   aFiles[4]   := sQuellPfad + '0174164027.pdf';
   aFiles[5]   := sQuellPfad + '0174164034.pdf';
   aFiles[6]   := sQuellPfad + '0174164041.pdf';
   aFiles[7]   := sQuellPfad + '0174164065.pdf';
   aFiles[8]   := sQuellPfad + '0174164072.pdf';
   aFiles[9]   := sQuellPfad + '0174164089.pdf';

   AConverter := TGS_PdfConverter.Create(sZielPfad);
   Aconverter.ToPdf(aFiles, sZielPfad + 'new.pdf', false);
   FreeAndNil(AConverter);

   ShowMessage('fertig');
end;

Es läuft komplett, ohne Fehlermeldungen durch, tut aber leider nicht was es soll.
Ich habe versucht in der GS_Converter nachzusehen, was da gemacht wird, verstehe aber nicht alles und komme daher nicht wirklich weiter.

Würdest Du da einmal draufschauen?

Danke.

[Frickler]

Zitat von Bernhard Geyer:

Auch wenn der initiale Overhead relativ hoch ist:
https://pdfbox.apache.org/2.0/commandline.html
Kann Mergen und Drucken (über Kommandozeile)

Mergen über Kommandozeile geht auch mit pdftk:

Code:

pdftk datei1.pdf datei2.pdf ... dateix.pdf cat output gesamt.pdf

(und vieles vieles mehr...)