Drucken einer .txt Datei

[Nightshade]

Delphi-Quellcode:

var tmp : TStringlist;

begin
  try
    tmp := TStringList.Create;
    tmp.LoadFromFile('Entsprechende Datei');
    with Printer do begin 
      BeginDoc; 
      Canvas.TextOut(0, 0,tmp.text); 
      EndDoc; 
    end; 
  finally
    FreeAndNil(tmp);
  end;
end;