Drucker Button für Delphi 7

[1990Philipp]

Zitat von 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;

das geht nicht, denn da kommt dann der text, aber hintereindander und mit rechtecken..was nun?