rtf -> pdf?

[Redeemer]

Was? RichEdit.Print druckt auf Printer.PrinterIndex? Ich dachte, das kann nur auf Standarddrucker drucken. Seit wann? Schon immer?

[himitsu]

Auf die Printerinstanz, welche grade aktiv ist.
* nach dem Start der DefaultPrinter
* oder manuell gewählt
* oder nach dem PrinterAuswahlDialog
* oder ...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Print;

  RichEdit1.Print('');
end;

Delphi-Quellcode:

procedure TCustomForm.Print;
begin
  Printer.BeginDoc;
  ...
      with Printer, Canvas do
          ...
          StretchDIBits(Canvas.Handle, 0, 0, PrintWidth, PrintHeight, 0, 0, ...

Delphi-Quellcode:

procedure TCustomRichEdit.Print(const Caption: string);
begin
  Printer.Title := Caption;
  Printer.BeginDoc;
  ...
      LastChar := RenderRange(Printer.Canvas, nil, LastChar, MaxLen);