Drucken einer .txt Datei

[Alexander]

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.