Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сообщение по завершении печати [D6, WinXP]

Кверти © (2007-03-27 17:07:00)
Здравствуйте! Как я могу перехватить сообщении об удачном выводе документа на принтер? (нужно понять не зажевал ли принтер бумагу, не закончилась ли она ....)

Ketmar (2007-03-30 13:20:00) [1]
а никак. то, что документ ушёл из очереди ещё не гарантирует успешной распечатки.

Novice (2007-03-30 07:53:00) [2]
AFAIK, это делается на уровне драйверов. Учитывая, что принтеры сейчас пошли не в меру умные, порой даже умнее компьютеров (мой Canon, к примеру, при включении ночью работает в бесшумном режиме), это не составит проблем - опрос датчиков и все такое. Но... Драйверы => ASM + тех. описание для принтера... :-)

Кверти (2007-03-29 17:27:00) [3]
Кто-нибудь может подкинуть пример с FindFirstPrinterChangeNotification

Правильный Вася (2007-03-27 17:32:00) [4]
не кончилась ли краска
не пропало ли питание
все ли копии распечатались

S@shka (2007-03-27 17:32:00) [5]
var
T : TPrinter;
...
begin
T := TPrinter.Create.
T.BeginDoc;
...
T.EndDoc;
ID_R := Application.MessageBox (
PChar('Если бумага зажевана нажмите Cancel'+#13#10+
'Если бумага кончилась нажмите No'),PChar('Внимание'),MB_YESNOCANCEL);
case ID_R of
IDNO : ShowMessage ('Бумага кончилась');
IDCANCEL : ShowMessage ('Бумага зажевана');
else ShowMessage ('Все Ок');
end;
...
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »