Private Sub Command1_Click()
WQL = "Select * From Win32_Printer"
Set objinst = GetObject("winmgmts:").ExecQuery(WQL)
For Each obj In objinst
Debug.Print obj.Name
Dim type1 As String
For i = 1 To UBound(obj.PaperSizesSupported)
Debug.Print obj.PaperSizesSupported(i)
Next
End Sub
关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放 / 友情链接 Copyright ©2001-2006 Lihuasoft.net webmaster(at)lihuasoft.net 网站编程QQ群 京ICP备05001064号 页面生成时间:0.00204