private sub button1_click(byval sender as object, byval e as eventargs) if (printersettings.installedprinters.count <= 0) then messagebox.show( "没找到打印机 ") end if dim ps as new printersettings dim printname as string for each printname in printersettings.installedprinters ps.printername = printname console.writeline( "默认打印机:{0}; 是否可用:{1} ", 1} ", ps.isdefaultprinter, ps.isvalid) next end sub