如何能获取非默认打印的paperkind值和纸张名字等信息呢?
Dim prtdoc As New Printing.PrintDocument()
For Each s As String In Printing.PrinterSettings.InstalledPrinters
Output.Show(s)
prtdoc.PrinterSettings.PrinterName = s
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
Output.Show(ps.Kind & "," & ps.PaperName & "," & ps.width & "*" & ps.height)
Next
Next