Moin Kiaro,
Also das TEXT-Property der TStringList gibt den Text schon mit Zeilenumrüchen aus, doch scheinbar erkennt das TextOut nicht.
Ich habe das jetzt so versucht und es klappt:
Delphi-Quellcode:
sl := TStringList.Create;
sl.Add('sss');
sl.Add('test');
with Printer do
begin
BeginDoc;
// Hier Font-Einstellungen vornehmen
Canvas.Font.Name := 'Verdana';
// Höhe des Textes berechnen...
h := Canvas.TextHeight('tt');
for i:=0 to sl.Count -1 do
Canvas.TextOut (0, h*i, sl[i]);
EndDoc;
end;
Edit: Der Print-Dialog ist wirklich nur der Dialog selber, ums drucken musst du dich selber kümmern.
