'需要引用：
       Imports System.Drawing.Printing

        Dim prtdoc As New PrintDocument()
        Dim strDefaultPrinter As String = prtdoc.PrinterSettings.PrinterName     '读取的是默认打印机名称
        Dim strPrinter As [String]
        For Each strPrinter In PrinterSettings.InstalledPrinters               '循环例出所有打印机名称
                 
        Next
        

strPrinter.PaperName    '打印机的纸张名称（类型）
strPrinter.Width     '纸张的宽度
strPrinter.Height     '纸张的高度