以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何有效指定打印机  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132168)

--  作者:leeswayne
--  发布时间:2019/3/15 13:42:00
--  [求助]如何有效指定打印机
老师你好,请教一个问题

在窗口的页面设置中,选择了打印机A

但是实际打印时,是从打印机B打印出来的。

不知道这个问题要如何修改,还请帮忙看下。

打印button的代码如下:

Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Dim ps As new System.Drawing.Printing.PrinterSettings 
ps.Copies = e.form.controls("NumericComboBox1").text   \'设置份数\'
doc.Print(ps)

--  作者:有点甜
--  发布时间:2019/3/15 15:32:00
--  
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ps As new System.Drawing.Printing.PrinterSettings 
Dim qty As WinForm.TextBox = e.Form.Controls("printqty")
ps.PrinterName = "HP LaserJet 6L"
ps.Copies = qty.text   \'设置份数
doc.Print(ps)     \'打印

--  作者:leeswayne
--  发布时间:2019/3/16 14:28:00
--  
谢谢老师,我试下看。

不过为什么窗口本身的页面设置里面失效了呢

如果下次换了一个打印机,每个都要重新修改代码,好像也比较麻烦。

--  作者:有点蓝
--  发布时间:2019/3/16 14:47:00
--  
放一个组合框,列出所有打印机选择:http://www.foxtable.com/webhelp/scr/1601.htm