主题：能否直接打印2份

 需要直接打印2份，能否在专业报表直接写代码？谢谢

 当然，运行两次Print不就行了吗？

 狐爸想当然

在专业报表里 
...
doc.print()
doc.print()
打出来的都是空白
我不想要preview,直接打印

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

测试没问题，你陪我两张纸

 真的可以。。

我用普通打印机也试了下可以，但标签打印机还是不行，打出来的是空白，，，又得找 晕~

我利用循环语句，可以由用户自由设置！

 问题是用print函数的话，就打出空白，郁闷。。。

只要doc.Body.Children.Add及之前的代码没问题，就不应该打出空白的（或者说只要打印一份没问题，打印N份也就没问题）！

 是啊，用预览打印是没问题的，直接打印的话，就是空白，打印机是标签打印机，就是这个郁闷

for i as integer = 1 to 2
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Print
next