以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何指定打印机？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18464)
--  作者：cubaren
--  发布时间：2012/4/13 20:02:00
--  如何指定打印机？
如何指定打印机
--  作者：czy
--  发布时间：2012/4/13 20:53:00
--  

指定打印机

如果安装了多个打印机，且需要在非默认打印机上打印，可以设置PrintDoc的PrinterName属性，在指定的打印机上打印。

例如

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = "HP LaserJet 6L"
doc.Print()

--  作者：scbekserver
--  发布时间：2012/4/14 10:14:00
--  
可以指定同时在多台打印机上打印吗？
--  作者：sloyy
--  发布时间：2012/4/15 20:43:00
--  
可以 复制一遍代码 修改打印机名
--  作者：don
--  发布时间：2012/4/16 11:45:00
--  
以下是引用sloyy在2012-4-15 20:43:00的发言：
可以 复制一遍代码 修改打印机名
生成PrintDoc的代碼不用重複!
Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable" 
doc.Body.Children.Add(rt) 
Dim PtNames As String() = {"HP LaserJet 3050 Series PCL 6","Foxit PDF Printer"}
For each ptn as string in Ptnames
     Doc.PrinterName =  ptn
     doc.Print() 
Next