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

来个硬的：

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

发现打印有扩展方法

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,I Love YOU!" '设置文本对象的内容

doc.Body.Children.Add(rt) '将文本对象加入到报表

Dim ps As new System.Drawing.Printing.PrinterSettings

ps.PrinterName = "打印机名"  '设置打印机名

ps.Copies = 2   '设置份数

doc.Print(ps)     '打印