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

end;

 

 

 

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

 

PrintStrings(Memo1.Lines);

или

PrintStrings(Listbox1.Items);

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить