呃,要打印的内容,循环n次不就行了?
专业报表可以这样
Dim doc As New PrintDoc '定义一个报表Dim rt As New prt.RenderText '定义一个文本对象rt.Text = "Hello Foxtable" '设置文本对象的内容doc.Body.Children.Add(rt) '将文本对象加入到报表Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 2Doc.Print