主题：[求助]专业报表问题

 1、试试

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
Doc.PageSetting.ToPageSettings.PrinterSettings.FromPage = 1
Doc.PageSetting.ToPageSettings.PrinterSettings.ToPage = 2
'Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = 50
Doc.Print