В продолжение темы Отследить печать документа.

Нет желающих потестить вариант с использованием WMI?
В глобальник вставляем следующий

Перем Обработчик, ОбработчикСобытий,objWMIServices;

Процедура ПриНачалеРаботыСистемы()
	ЗагрузитьВнешнююКомпоненту("EventProxy.dll");
	ОбработчикСобытий=СоздатьОбъект("Addin.EventProxy");
	ОбработчикСобытий.ГлубинаБуфераСобытий=200;
	Обработчик=СоздатьОбъект("WbemScripting.SWbemSink");
	ОбработчикСобытий.Источник(Обработчик,"WbemScripting.SWbemSink","WMISink");
	personate}!\\.\root\CIMV2");
	Shell=СоздатьОбъект("WScript.Shell");
	Env=Shell.Environment("Process");
	objWMIServices.ExecNotificationQueryAsync(Обработчик,
	"SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_PrintJob'
	|AND TargetInstance.Owner='"+Env.Item("UserName")+"'");
КонецПроцедуры	// ПриОткрытии

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Если (Источник="WMISink") и (Событие="OnObjectReady") Тогда
		Д=ЗначениеИзСтрокиВнутр(Данные);
		WMIObj=ОбработчикСобытий.ПолучитьОбъект(Д.ПолучитьЗначение(1));
		ИмяСобытия=WMIObj.SystemProperties_.Item("__Class").Value;
		Job=WMIObj.TargetInstance;
		Если ИмяСобытия="__InstanceDeletionEvent" Тогда
			Если Job.PagesPrinted=Job.TotalPages Тогда
				Сообщить("Документ "+Job.Document+" напечатан");
			Иначе
				Сообщить("Документ "+Job.Document+" не напечатан","!!!");
			КонецЕсли;
		КонецЕсли;
		Сообщить("Name:"+Job.Name);
		Сообщить("Caption:"+Job.Caption);
		Сообщить("Description:"+Job.Description);
		Сообщить("Document:"+Job.Document);
		Сообщить("Owner:"+Job.Owner);
		Сообщить("TotalPages:"+Job.TotalPages);
		Сообщить("StartTime:"+Job.StartTime);
		Сообщить("HostPrintQueue:"+Job.HostPrintQueue);
		Сообщить("JobStatus:"+Job.JobStatus);
		Сообщить("Size:"+Job.Size);
		Сообщить("Status:"+Job.Status);
		Сообщить("StatusMask:"+Job.StatusMask);
		Сообщить("PagesPrinted:"+Job.PagesPrinted);
		Сообщить("JobId:"+Job.JobId);
	КонецЕсли;
КонецПроцедуры	// ОбработкаВнешнегоСобытия
 

События возникают при постановке задания в очередь, удалении из очереди, изменении статуса задания.
В зависимости от текущих региональных установок значение свойства status может отличаться.
Свойство StatusMask - битовая маска:
Value Meaning
0x1 Paused
0x2 Error
0x4 Deleting
0x8 Spooling
0x10 Printing
0x20 Offline
0x40 Paperout
0x80 Printed
0x100 Deleted
0x200 Blocked_DevQ
0x400 User_Intervention_Req
0x800 Restart

Свойство JobID однозначно идентифицирует задание в очереди.

ЗЫ: EventProxy.dll брать тут

steban писал(а) 07. Ноября 2006 :: 10:46:

от FinePrint pdfFactory то же самое

Arta писал(а) 07. Ноября 2006 :: 13:41:

Икс его знает.
При случае буду пробовать на других компьютерах.

Попробовал я с живым принтером.
При удалении задания из очереди если Job.PagesPrinted=Job.TotalPages, то с вероятностью почти 100% документ напечатан