Как програмно убить задания на принтер?

[Alex404]

Допустим на принтер отправлено несколько заданий на печать.
Редко но бывает, что чего-то перемыкает и задания болтаются в спуле пока не перегрузишь комп. (ну майкросовтовский режим удаленного десктопа понимаешь)
Вопрос: Можно ли программно убить задания?

[_Vasya]

Sub KillDoc()
Member of VB.Printer
Immediately terminates the current print job.

[A.A.Z.]

Короче говоря, Printer.KillDoc

[alibek]

Это не совсем то. KillDoc убивает то задание, которое еще не было отправлено EndDoc (т.е. по сути, отменяет печать). А вот чтобы удалить чужие задания из менеджера печати, надо мучать API (или WMI)

[Alex404]

...надо мучать API (или WMI)

Вот вот! В инете полно примеров для обзора свойств принтеров, их состояния, количества заданий ну и т.д. А вот внятных примеров на удаление заданий - увы...

[Alex404]

Отчет о самостоятельно проделанной работе.
Попытка решить вопрос посредством WMI:
1.Установил на комп WMI tools
2.Подключил к проекту все примочки появившиеся после инсталяции WMI Tools

Итак.Если верить MSDN то классе Win32_Printer есть метод CancelAllJobs. По названию - ну прямо супер. Там же (MSDN) образец его использования (с предупреждением что ниже Win2000 - не работает):

Код: Выделить всё

strComputer = "." ' (тут я вписал имя своего PC)

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrintJobs =  objWMIService.ExecQuery _
    ("Select * from Win32_PrintJob")
For Each objPrintJob in colPrintJobs
    objPrintJob.CancelAllJobs
Next


Ну вот вставляю этот код в модуль формы на Command1.click а прога ругается на строчку :
objPrintJob.CancelAllJobs мол для этого объекта такого свойства или метода не существует.
Подскажите парню - что не так?
Может objPrintJob как нибудь объявить сначала нужно?
Может еще чего? Ну не работал я раньше с WMI...