var
i: integer;
begin
ListBox2.Items.Clear;
for i := 0 to Printer.Printers.Count - 1 do
ListBox2.items.Add(Printer.Printers.Strings);
end;
Работа с принтером
Доброго времени суток!
В системе установлено N принтеров. Один из них начинает печать. Нужны функции, которые вернут:
а) количество листов, которые отпечатал принтер в текущей сессии;
б) состояние принтера (включён\отключён\печатает\работает_в_режие_ожидания).
Имена доступных принтеров узнаю вот так:
Затем выбираю один из полученных и храню в отдельной переменной.
Кто что посоветует?
К модераторам: по-моему я запостил тему не в тот раздел. можно перенести её в Delphi & Kylix
В системе установлено N принтеров. Один из них начинает печать. Нужны функции, которые вернут:
а) количество листов, которые отпечатал принтер в текущей сессии;
б) состояние принтера (включён\отключён\печатает\работает_в_режие_ожидания).
Имена доступных принтеров узнаю вот так:
Код:
Затем выбираю один из полученных и храню в отдельной переменной.
Кто что посоветует?
К модераторам: по-моему я запостил тему не в тот раздел. можно перенести её в Delphi & Kylix
Скачай отсюда архив.
http://ifolder.ru/5536593
Читай со стр. 22. Структура TDeviceMode
Возможно поможет.
http://ifolder.ru/5536593
Читай со стр. 22. Структура TDeviceMode
Возможно поможет.