主题：[求助]有没有办法只打印指定页号的报表？

  什么报表？专业报表参考

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