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 ?