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