Thema: Delphi rtf -> pdf?

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.186 Beiträge
 
Delphi 12 Athens
 
#29

AW: rtf -> pdf?

  Alt 7. Feb 2024, 12:49
Das ist jetzt hoffentlich nicht nur eine Werbung um den 7PDF-Maker zu verkaufen?



Im Windows ist seit langem ein PDF-Drucker "Microsoft Print to PDF" enthalten,
den einfach als Ausgabe für z.B. TRichEdit verwenden.

Delphi-Quellcode:
uses
  IOUtils, Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..80] of Char;
begin
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, PChar(TPath.GetTempPath + 'Test.pdf'), 0);

  //Printer.BeginDoc;
  //Printer.Canvas.TextOut(100, 100, 'Test');
  //Printer.EndDoc;
  RichEdit1.Print('Testdruck');
end;
Quelle: https://stackoverflow.com/questions/...-pdf-in-delphi
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 7. Feb 2024 um 13:00 Uhr)
  Mit Zitat antworten Zitat