改成这样打印
Dim doc As New PrintDoc '定义一个报表Dim rt As New prt.RenderText '定义一个文本对象rt.Text = "Hello Foxtable" '设置文本对象的内容doc.Body.Children.Add(rt) '将文本对象加入到报表Dim ps As new System.Drawing.Printing.PrinterSettings 'ps.Copies = 2 '设置份数'doc.Print(ps) '打印