Печать содержимого TMemo/TListbox

Как мне вывести на печать все строки компонента TMemo или TListbox?
Нижеприведенная функция в качестве параметра акцептует объект TStrings и распечатывает все строки на принтере, установленном в системе по умолчанию.Поскольку функция использует TStrings, то она может работать с любыми типами компонентов, имеющими свойство типа TStrings, например TDBMemo или TOutline.

uses Printers;

procedure PrintStrings(Strings: TStrings);

var

 Prn: TextFile;

 i: word;

begin

 AssignPrn(Prn);

 try

  Rewrite(Prn);

  try

  for i := 0 to Strings.Count - 1 do

  writeln(Prn, Strings.Strings[i]);

  finally

  CloseFile(Prn);

  end;

 except

  on EInOutError do

  MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);

 end;

end;

Для печати содержимого TMemo или TListbox используйте следующий код:
PrintStrings(Memo1.Lines);
или
PrintStrings(Listbox1.Items);
Взято из Советов по Delphi от Валентина Озерова
Сборник Kuliba

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...