Как проверить статус принтера?

[BorisSS]

Перед отпракой документа в печать мне надо проверить, а включен ли принтер и готов ли он к печати? Пробовал примерик из MSDN "HOW TO: Determine Printer Status and Print Job Status from Visual Basic", так он даже на отключенный принтер выдает "Printer Status: Ready"

Поиск шерстил, буду благодарен за любые подсказки, готовые решения на API приветствуются.

[dr.MIG]

Как вариант WMI

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


strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Printer", , 48)
For Each objItem In colItems
    MsgBox "Attributes: " & objItem.Attributes
Next

Возможные значения искать где-то в MSDN...