Следующая функция имеет один параметр в виде объекта 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