Печать содержимого 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('Error Printing text.', mtError, [mbOk], 0);

 end;

end;

Чтобы распечатать содержимое TMemo или TListbox, используйте следующие команды:
PrintStrings(Memo1.Lines);
или
PrintStrings(Listbox1.Items);

Взято из http://forum.sources.ru

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

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