主题：请问doc.Print()如何打印多份？

比如我要打印50份

用专业报表怎么写？

 套一个大循环。

这个不会

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

默认不提供，copies属性不公开

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

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

word报表都支持打印多份的啊

 可以设置的，就得看 foxtable 是否公开这些设置控制而已。

发现打印有扩展方法

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)     ‘打印

来个硬的：

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