- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 能否直接打印2份 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=6567)
-- 发布时间：2010/4/9 17:04:00
-- 能否直接打印2份
需要直接打印2份，能否在专业报表直接写代码？谢谢
-- 发布时间：2010/4/9 17:06:00
--
当然，运行两次Print不就行了吗？
-- 发布时间：2010/4/9 17:21:00
--
狐爸想当然
在专业报表里
...
doc.print()
doc.print()
打出来的都是空白
我不想要preview,直接打印
-- 发布时间：2010/4/9 17:32:00
--
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Print
doc.Print
测试没问题，你陪我两张纸
-- 发布时间：2010/4/9 17:41:00
--
真的可以。。
我用普通打印机也试了下可以，但标签打印机还是不行，打出来的是空白，，，又得找 晕~
-- 发布时间：2010/4/9 21:59:00
--
我利用循环语句，可以由用户自由设置！
-- 发布时间：2010/4/10 10:40:00
--
问题是用print函数的话，就打出空白，郁闷。。。
-- 发布时间：2010/4/10 11:28:00
--
只要doc.Body.Children.Add及之前的代码没问题，就不应该打出空白的（或者说只要打印一份没问题，打印N份也就没问题）！
-- 发布时间：2010/4/10 11:33:00
--
是啊，用预览打印是没问题的，直接打印的话，就是空白，打印机是标签打印机，就是这个郁闷
-- 发布时间：2010/4/10 16:42:00
--
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