Печать текстового файла

[PONKA]

Помогите рашить след. проблему : программа выдает текст. файл с данными и его надо распечатать но без вывода диалога печати, а просто при нажатии кнопки - печатать этот файл.

[SERG1980]

Пусть выдаёт в мемо

uses Printers;
.....
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 Printer.BeginDoc;
 Printer.Canvas.Font.Size:=12;
 for I:= 0 to memo1.Lines.Count - 1 do
 Printer.Canvas.TextOut(20,150+(150*i),memo1.Lines[i]);
 Printer.EndDoc;
end;

[PONKA]

Спасибо за ответ! А нельзя ли без мемо, а текст файл напечатать.

[Пепел Феникса]

а кто мешает его скрыть?
или использовать TStringList?

[PONKA]

Да впринципе ничего не мешает.
По этому варианту строчки печатаются с большим интервалом!!?

[Пепел Феникса]

Printer.Canvas.TextOut(20,150+(150*i),memo1.Lines[i]);

ну так вы код то посмотрите
тут выводятся с интервалом 150(начиная с позиции 150)

[astecenko]

Печатается только 1 страница, а файл большой. Как быть?

[DenNik2006]

uses
  .. Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TextFile;
  s: TStrings;
  i: word;
begin
  if OpenDialog1.Execute then
  begin
    s:= TStringList.Create;
    s.LoadFromFile(OpenDialog1.FileName);
    AssignPrn(t);
    Rewrite(t);
    for i:= 0 to s.Count - 1 do
      WriteLn(t,s[i]);
    CloseFile(t);
    s.Free;
  end;
end;