If you check carefully, you will find that Windows' Printer and Faxes does NOT always show the correct status of the printer either. So to repeat what others have told you, you are wasting your time, there is no 100% accurate way to determine the printer status.

>Thanks!
>But, if the printer is "offline" it stills saying that
>the printer is "Idle".
>
>
>>
>>This should give you the correct status of the printer:
>>

strComputer = "."
>>objWMIService = Getobject("winmgmts:"+ "{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
>>colInstalledPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
>>For Each objPrinter In colInstalledPrinters
>>?"Name: " + objPrinter.Name
>>Do Case
>>Case objPrinter.PrinterStatus = 1
>>strPrinterStatus = "Other"
>>Case objPrinter.PrinterStatus = 2
>>strPrinterStatus = "Unknown"
>>Case objPrinter.PrinterStatus = 3
>>strPrinterStatus = "Idle"
>>Case objPrinter.PrinterStatus = 4
>>strPrinterStatus = "Printing"
>>Case objPrinter.PrinterStatus = 5
>>strPrinterStatus = "Warmup"
>>Endcase
>>? "Printer Status: " + strPrinterStatus
>>Next