如何得判断当前打印机是否支持某种纸张类型？

Question

感谢您使用微软产品。您可以使用WMI的Win32_Printer对象获得打印机支持的纸张大小的信息，如下例：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
    NextEnd Sub
详细信息请参考：
Win32_Printer
http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_printer.asp
- 微软全球技术中心 VB技术支持本帖子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
======================