Drucker Button für Delphi 7

[DeddyH]

In der Delphi 7-Hilfe steht doch ein Beispiel dazu:

Zitat:

In diesem Beispiel wird ein Formular mit einer Schaltfläche und einer Memokomponente verwendet. Wenn der Benutzer auf die Schaltfläche klickt, wird der Inhalt der Memokomponente mit einem 200 Pixel großen Rahmen um die Seite gedruckt. Bevor Sie dieses Beispiel ausführen können, müssen Sie die Unit Printers in die uses-Klausel aufnehmen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;

end;