以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表如何多次打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73390)
--  作者：cyl123
--  发布时间：2015/8/18 17:08:00
--  专业报表如何多次打印
专业报表如何多次打印，用代码直接打印。
--  作者：大红袍
--  发布时间：2015/8/18 17:30:00
--  

方法一：

 


Dim doc As New PrintDoc

Dim rt As New prt.RenderText

rt.Text = "Hello Foxtable,I Love YOU!"

doc.Body.Children.Add(rt)


For i As Integer = 1 To 2
    doc.Print
Next

 

 

方法二：

 

Dim doc As New PrintDoc

Dim rt As New prt.RenderText

rt.Text = "Hello Foxtable,I Love YOU!"

doc.Body.Children.Add(rt)

 

Dim ps As new System.Drawing.Printing.PrinterSettings

\'ps.PrinterName = "打印机名"

ps.Copies = 2  

doc.Print(ps)