Drucken mit gleichzeitigem generieren eines PDFs

[oakley]

Ich wollte Euch nur den aktuellen Stand mitteilen, falls jemand sowas auch nochmal machen möchte.

Ich habe die Ghostscript DLL eingebunden und lasse in meinem Programm jetzt aus der *.PS Datei ein PDF erzeugen.
Die Initialisierung und das Laden der DLL mache ich über die angehangene Unit.

So starte ich die Konvertierung zum PDF.

Delphi-Quellcode:

oGS := TGhostScript.Create;
oGS.ExecuteWithArgs(GetArgs);

GetArgs:

Delphi-Quellcode:

function TForm1.GetArgs: APAnsiChar;
var
  oArgs: APAnsiChar;
begin
  setlength(oArgs, 0);
  AddArg(oArgs, 'gs');
  AddArg(oArgs, '-r300');
//  AddArg(oArgs, '-dSAFER');
  AddArg(oArgs, '-dBATCH');
  AddArg(oArgs, '-dNOPAUSE');
  AddArg(oArgs, '-sDEVICE=pdfwrite');
  AddArg(oArgs, '-dPDFSETTINGS=/ebook');
  AddArg(oArgs, '-sFONTPATH=%windir%/fonts');
  AddArg(oArgs, '-dEmbedAllFonts=true');
  AddArg(oArgs, '-dSubsetFonts=true');
  AddArg(oArgs, '-dNumRenderingThreads=8');
  AddArg(oArgs, '-sOutputFile=c:\temp\' + filename);
  AddArg(oArgs, '-f');
  AddArg(oArgs, 'c:\temp\xy.ps');
  result := oArgs;
end;

Funktioniert soweit gut, jetzt muss ich nur noch schauen, wie ich die PS Datei zum Drucker bekomme.
Das sind Canon Image Runner, die sollten Postscript können.

LG

Mirko