以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问doc.Print()如何打印多份？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49637)
--  作者：hanxuntx
--  发布时间：2014/4/21 21:16:00
--  请问doc.Print()如何打印多份？

比如我要打印50份

用专业报表怎么写？
--  作者：有点甜
--  发布时间：2014/4/21 21:32:00
--  

 套一个大循环。
--  作者：逛逛
--  发布时间：2014/4/21 21:49:00
--  

这个不会

 

 

但是感觉应该从 PrinterSettings 去控制打印机的Copies属性，怎么获取还没玩过。

 

 
--  作者：有点甜
--  发布时间：2014/4/21 22:08:00
--  
以下是引用逛逛在2014-4-21 21:49:00的发言：

这个不会

 

 

但是感觉应该从 PrinterSettings 去控制打印机的Copies属性，怎么获取还没玩过。

 

 

 

默认不提供，copies属性不公开
--  作者：hanxuntx
--  发布时间：2014/4/21 22:11:00
--  

套一个大循环，系统岂不是要停在那里等待打印完成么？

数量多了肯定不行，要好长时间

word报表都支持打印多份的啊
--  作者：有点甜
--  发布时间：2014/4/21 22:13:00
--  

 可以设置的，就得看 foxtable 是否公开这些设置控制而已。
--  作者：hanxuntx
--  发布时间：2014/4/21 22:35:00
--  
求关注
--  作者：ybil
--  发布时间：2014/4/22 6:37:00
--  
支持7號，牆裂要求提供copies属性設置！
--  作者：逛逛
--  发布时间：2014/4/22 7:59:00
--  

发现打印有扩展方法

Public Sub Print(ByVal printerSettings As System.Drawing.Printing.PrinterSettings)

俺没打印机测试，试试

 

Dim ps As new System.Drawing.Printing.PrinterSettings

ps.PrinterName = “打印机名”  ’设置打印机名
ps.Copies = 2   ‘设置份数

doc.Print(ps)     ‘打印
--  作者：狐狸爸爸
--  发布时间：2014/4/22 8:17:00
--  

来个硬的：

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
rt.Style.TextColor = Color.Red \'字符颜色设为红色
rt.Style.TextAngle = -45 \'顺时钟旋转45度
doc.Body.Children.Add(rt) \'将文本对象加入到报表
For i As Integer = 1 To 50
    doc.Print()
Next

 

再来软的：

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
rt.Style.TextColor = Color.Red \'字符颜色设为红色
rt.Style.TextAngle = -45 \'顺时钟旋转45度
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 50
Doc.Print

 

[此贴子已经被作者于2014-4-22 8:17:35编辑过]