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