Вывод текстового файла на печать.

[XerSon]

procedure PrintStrings(Strings: TStringList);
var
  i, c: integer;
begin
  try
    Printer.BeginDoc;
    c := 0;
    for i := 0 to Strings.Count - 1 do
    begin
      Printer.Canvas.TextOut(0, c, Strings.Strings[i]);
      c := c + 100;
    end;
    Printer.EndDoc;
  except
    on EInOutError do
    begin
      ShowMessage('bla bla bla');
    end;
  end;
end;

Реализация:

var
s: TStringList;
begin
      s := TStringList.Create;
      s.LoadFromFile('textfile.txt');
      PrintStrings(s);
      s.Free;
end;

Почему при печати на принтер, выходит только одна стр?

[Terran]

Код рабочий. Я попробовал. У меня всё печатает, все строки.

[XerSon]

Сообщение от Terran

Код рабочий. Я попробовал. У меня всё печатает, все строки.

В текстовом файле более 1000 строк, на печать выходит только 1-ая страничка.