Inhalt Textdatei drucken

[Privateer3000]

Hi folk,

ist es möglich den Inhalt einer textdatei
zu drucken ohne vorher zu öffnen?
D.h. ohne ein form mit memo oder richedit
zu öffnen, sondern nur drucken.
Da es sich in diesem Fall um eine Logdatei
handelt ist es eben nicht unbedingt notwendig
diese sehen zu müssen.

Dank im vorraus!

[Mackhack]

Lad sie doch in eine TStringList und druck das ganze dann. Sollte doch gehen.

[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;

[3_of_8]

Wozu der Overkill? TStringList tuts doch auch.

[delphis spassbremse]

find ich so angenehmer.... und weil man das auch mit der filelistbox verknüpfen könnte

[Privateer3000]

Danke Leute, aber wirklich nicht so ein aufwand.
Ich wollte nun keine kompo extra machen dafür, ob nun visible oder nicht.
Wie wird dann eine TStinglist gedruckt?
Gibts das als Eigenschaft/Methode,
oder muss man eine funktion kreiern?

Danke

[volkerw]

Guten Morgen,
eine Zeile reicht aus, Ausgabe geht auf Standarddrucker:ShellExecute(handle, 'print', 'c:\temp\test.log', '', '', SW_HIDE); Gruß
Volker

[Privateer3000]

Prima!
Vielen Dank!