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);