rtf -> pdf?

[himitsu]

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