>>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") >> >>