Memo Inhalt drucken mit Umbruch....

[aerotech]

Hallo, ich bekom mes hiermmit hin, zwei verschiedene Memos in mein Ausdruck zu bekommen:

Delphi-Quellcode:

procedure TForm1.Label7Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
Canvas.TextRect(Rect(200,500,PageWidth-200,PageHeight-500),
200, 500, memo3.Lines.Text);
EndDoc;
end;
end;

jedoch übernimmt er nicht die umbrüche aus den memos und druckt dafür alles zusammengeschrieben aus und fügt lauter kasten daür als platzhalter rein...

also anstatt

bla bla bla bla bla
bla bla bla
bla

bla bla bla bla bl [][][][][]bla bla bla und so