Thank You so much Sergey.
Exactly what I needed.
Works like a charm...

>Try
>

>DECLARE Sleep IN WIN32API Long
>
>* Display 'Printers and Faxes'
>ccPRINTERS = 0x4
>loShellApp = CREATEOBJECT("Shell.Application")
>loShellApp.Open(ccPRINTERS)
>* Wait some time for dialog to show up
>Sleep(1500)
>* Change view
>loShell = Createobject("wscript.shell")
>loShell.AppActivate("Printers and Faxes")
>loShell.SendKeys("%VD")
>
>

>>Since we're not able to obtain accurate reading of Printer Status from Windows "Printers & Faxes", the next best thing would be to programmatically
>>
>>a) Pullup the "Printers" window (or in XP the "Printers & Faxes" window).
>>b) Change the View Setting to "Details" (so it will show each printer's status and number of documnts pending).
>>
>>Then at least, this way the user can see why his printer functions are failing (and not blame the VFP app !).
>>
>>Is there anyway to do this ?