- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于证书打印的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27803)
-- 发布时间：2013/1/10 15:52:00
-- [求助]关于证书打印的问题
我做了一个奖证打印模板（见上传文件）。
我的设想：成绩表的每一条记录打印一张奖证，模板中{}内的文本为成绩表对应的列的值。
我做了好多次不能成功，请专家指点！！！
兹发给2013年武汉市中小学生航空航天模型竞赛{参赛项目}{中小学}{奖项}获得者，以资鼓励
参赛选手：{姓名} 辅导教师：{辅导教师}
参赛学校：{学校}
武汉市教育局 武汉市科学技术协会
2013年11月
因文件类型不允许上传，把它复制过来了
-- 发布时间：2013/1/10 15:56:00
--
例如：
兹发给2013年武汉市中小学生航空航天模型竞赛“雷鸟”现场制作及留空时间比赛小学组一等奖获得者，以资鼓励
参赛选手：张三 辅导教师：李四
参赛学校：武汉市啊啊啊小学
武汉市教育局 武汉市科学技术协会
2013年11月
-- 发布时间：2013/1/10 16:08:00
--
最简单的方法:
http://www.foxtable.com/help/topics/1299.htm
-- 发布时间：2013/1/10 16:11:00
--
试过了，只能打印当前行，而且列里的值加不进去，程序会假死。
-- 发布时间：2013/1/10 16:17:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目91.rar |
-- 发布时间：2013/1/10 16:36:00
--
谢谢指点！！！
看明白了。
现在还想请教一下，如何一次性打印出表中所有的行（记录）。
意思是说：点击“生成证书”按钮后，一次性打印所有成绩表中的奖证。（一条记录一张奖证）
-- 发布时间：2013/1/10 16:57:00
--
期待中。。。。
先谢过！！！！！！
-- 发布时间：2013/1/10 16:59:00
--
一次打印全部，将按钮代码改为：
For Each dr As DataRow In DataTables("表A").DataRows
Dim rp As New RtfPrinter(ProjectPath & "证书.rtf")
rp.DataRow = dr
rp.print
Next
-- 发布时间：2013/1/11 13:05:00
--
再次请教证书打印
上述代码改成预览执行时，每次只显示一页，给预览带来很大的麻烦，经多次修改仍然不能解决。
请专家指点
如何在预览时能一次性显示所有的页
For Each dr As DataRow In DataTables("表A").DataRows
Dim rp As New RtfPrinter(ProjectPath & "证书.rtf")
rp.DataRow = dr
rp.Preview()
Next
另外，我的预览页面今天怎么出现了狐表的网址水印
-- 发布时间：2013/1/11 15:05:00
--
出现水印的话，可能是你的试用期快要结束了，很快需要购买正版。
你或者到其他电脑使用，或者购买正版的狐表。