- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何获取默认的打印机名称？（OK） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51629)
-- 发布时间：2014/5/30 9:13:00
-- 如何获取默认的打印机名称？（OK）
For Each p As String In InstalledPrinters
Output.Show(p)
Next
上面的代码可以获得所有安装的打印机，请问如何得到电脑中指定的默认打印机名称？谢谢！
-- 发布时间：2014/5/30 9:28:00
--
看这里
http://www.foxtable.com/help/topics/1439.htm
-- 发布时间：2014/5/30 10:24:00
--
谢谢！再请问下，下面的代码红色部份要怎么写才能得到某款打印机所支持的纸张类型作为下拉列表？
Dim st As new system.Drawing.printing.PrinterSettings
Dim sz As String
st.PrinterName = e.Form.Controls("Comb_Printer").Value
For Each ps As System.Drawing.Printing.PaperSize In st.PrinterName.PaperSizes \'生成打印机的纸张下拉列表
sz = sz & "|" & ps.PaperName
Next
-- 发布时间：2014/5/30 10:27:00
--
-- 发布时间：2014/5/30 10:36:00
--
如下代码，获取的是默认打印机的纸张，自己修改红色代码
Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes \'生成打印机的纸张下拉列表
output.show(ps.PaperName)
Next
-- 发布时间：2014/5/30 10:41:00
--
此主题相关图片如下：360截图20140530103804484.jpg
我是想上面选择不同的打印机，下面弹出的纸张列表就不同，但按4楼的代码切换不同的打印机后好象纸张都一样。
-- 发布时间：2014/5/30 10:42:00
--
看5楼
-- 发布时间：2014/5/30 11:04:00
--
谢谢，可以了。