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;