Text mit Printer.Canvas.TextOut drucken.

[smart]

Ich möchte ein Text drucken und habe mir folgende Zeilen ausgedacht.

Delphi-Quellcode:

Printer.BeginDoc;
Printer.Canvas.Font := Memo1.Font;
for Zeile := 0 to Memo1.Lines.Count - 1 do
begin
     Printer.Canvas.TextOut(100, 100, '          ' + Memo1.Lines[Zeile]);
     If Memo1.Lines[Zeile] = '*' Then Printer.NewPage;
end;
Printer.EndDoc;

Leider klappt das ganze nicht! Es wird kein Text gedruck! Warum nicht? Kann Einer mal helfen?

Gruß
Heike

[Klaus01]

gelöscht, weil es Quatsch war!

[marabu]

Hallo Heike,

du solltest nicht den ganzen Text in die gleiche Zeile schreiben.

Grüße vom marabu