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

Следующая функция имеет один параметр в виде объекта TStrings и печатает каждую строку на принтер, установленный в системе по умолчанию. Так как эта функция использует TStrings, то она будет работать с различными компонентами, которые содержат свойство типа TStrings, такие как TDBMemo или TOutline:

Code:

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;

Чтобы распечатать содержимое TMemo или TListbox, используйте следующие команды:

PrintStrings(Memo1.Lines);

или

PrintStrings(Listbox1.Items);

Новые статьи

Ранние статьи

Как изменить фоновый цвет текста в различных строчках TListBox?

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