I want to find the printer status Like ONLINE, OFFLINE, OUT OF PAPER etc.

SYS(13) always return ready even when the printer is off ( because of spooling)

I tired the code below it shows PrinterStatus = 3 for all available printer

lcComputer = '.'
loWMIService = Getobject('winmgmts:' ;
    + '{impersonationLevel=impersonate}!\\' + lcComputer + '\root\cimv2')

*!* loInstalledPrinters = loWMIService.ExecQuery ;
    ("Select * from Win32_Printer Where PrinterStatus = '1' or PrinterStatus = '2'")

loInstalledPrinters = loWMIService.ExecQuery ;
    ("Select * from Win32_Printer ")

For Each loPrinters In loInstalledPrinters
CLEAR

? loPrinters.GetObjectText_
? loprinters.Name
 wait 
Next

RETURN

Thanks in Advance