Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Текстовая печать из программы на Delphi (копия TMemo)

Текстовая печать из программы на Delphi (копия TMemo)

>Одним из вариантов может быть запись необходимого текста в текстовый файл и посыл его на LPT1, но не получается.
А что собственно не получается?
Смотри ниже:

procedure TEditForm.Printed;
var
  Line: Integer;
  PrintText: System.Text;
begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := Memo1.Font;
  for Line := 0 to Memo2.Lines.Count - 1 do
   Writeln(PrintText, Memo2.Lines[Line]);
  System.Close(PrintText);
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru