以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  非默认打印机如何获取全部paperkind值呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188547)

--  作者：royyang --  发布时间：2023/9/26 16:28:00 --  非默认打印机如何获取全部paperkind值呢？ 如何能获取非默认打印的paperkind值和纸张名字等信息呢？

--  作者：有点蓝 --  发布时间：2023/9/26 16:41:00 --   http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=46946&skin=0

--  作者：royyang --  发布时间：2023/9/26 17:03:00 --   这个只能取默认打印机的，非默认的要如何改呢？

--  作者：有点蓝 --  发布时间：2023/9/26 17:14:00 --   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