如何获取默认的打印机名称？（OK） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获取默认的打印机名称？（OK）

共有3317人关注过本帖树形打印复制链接主题：如何获取默认的打印机名称？（OK）

scott518

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：2488 威望：0 精华：0 注册：2011/11/4 17:32:00

如何获取默认的打印机名称？（OK） 发帖心情

Post By：2014/5/30 9:13:00 [只看该作者]

For Each p As String In InstalledPrinters
Output.Show(p)
Next

上面的代码可以获得所有安装的打印机，请问如何得到电脑中指定的默认打印机名称？谢谢！

[此贴子已经被作者于2014-5-30 11:05:00编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/5/30 9:28:00 [只看该作者]

看这里

http://www.foxtable.com/help/topics/1439.htm

scott518

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：292 积分：2488 威望：0 精华：0 注册：2011/11/4 17:32:00

Post By：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

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/30 10:27: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.PaperSizes '生成打印机的纸张下拉列表

sz = sz & "|" & ps.PaperName

output.show(sz)

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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