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