Inhalt Textdatei drucken

[delphis spassbremse]

richtig suchen.....

das gabs schonmal...


du nimmst dir ein memofeld was du auf visable := false; setzt.
dann nimmst du diesen code zum drucken:

File laden => OnCreate:
memo1.lines.loadfromfile('bla.txt'); Drucken button:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
    Zeile: Integer;
    PrintText: TextFile;
begin
if Application.MessageBox('Log wirklich Drucken?', 'Drucken', 36) = 6 then
begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := Memo1.Font;
  Writeln(PrintText, #13);
  Writeln(PrintText, #13);
  Writeln(PrintText, #13);
  for Zeile := 0 to Memo1.Lines.Count - 1 do
  Writeln(PrintText, '                  ' + Memo1.Lines[Zeile]);
  CloseFile(PrintText);
end;
end;