Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 16:41
Ich habe die Frage bestimmt nicht korrekt verstanden, hier ein schnippsel wie man den Microsoft Print to PDF direkt anspricht und ein PDF erzeugt.

Delphi-Quellcode:
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..80] of Char;
begin
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF'); // drucker
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, 'Test.pdf', 0); // dateiname
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'Test'); // pdf inhalt
  Printer.EndDoc;
end;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat