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

[aerotech]

und hier weiß keiner irgendwie rat!?

[toms]

Hi,

Du könntest auch ein TRichEdit nehmen.
Diese Komponente besitzt bereits eine Print Methode.

[Matze]

Falls du ein RichEdit verwenden solltest, wie toms vorgeschlagen hat, dann musst du PlainText des RichEdits auf true stellen.

PS: Pushen ist frühestens nach 24 h gestattet.