Сообщение по завершении печати

← →
Кверти © (2007-03-27 17:07) [0]

Здравствуйте! Как я могу перехватить сообщении об удачном выводе документа на принтер? (нужно понять не зажевал ли принтер бумагу, не закончилась ли она ....)

← →
Правильный Вася (2007-03-27 17:32) [1]

не кончилась ли краска
не пропало ли питание
все ли копии распечатались

← →
S@shka © (2007-03-27 17:32) [2]

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;

← →
Кверти © (2007-03-29 17:27) [3]

Кто-нибудь может подкинуть пример с FindFirstPrinterChangeNotification

← →
Novice (2007-03-30 07:53) [4]

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

а никак. то, что документ ушёл из очереди ещё не гарантирует успешной распечатки.

Сообщение по завершении печати Найти похожие ветки