Скачать: CL | DM;

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

← →
Кверти ©   (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 + тех. описание для принтера... :-)

---

← →
Ketmar ©   (2007-03-30 13:20) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c