主题：[求助]关于证书打印的问题

我做了一个奖证打印模板（见上传文件）。

      我的设想：成绩表的每一条记录打印一张奖证，模板中{}内的文本为成绩表对应的列的值。

       我做了好多次不能成功，请专家指点！！！

 

 

兹发给2013年武汉市中小学生航空航天模型竞赛{参赛项目}{中小学}{奖项}获得者，以资鼓励

参赛选手：{姓名}       辅导教师：{辅导教师}

参赛学校：{学校}

 

武汉市教育局            武汉市科学技术协会

 

2013年11月

 

因文件类型不允许上传，把它复制过来了

例如：

 

  

      兹发给2013年武汉市中小学生航空航天模型竞赛“雷鸟”现场制作及留空时间比赛小学组一等奖获得者，以资鼓励

                     参赛选手：张三      辅导教师：李四

                     参赛学校：武汉市啊啊啊小学

 

                      武汉市教育局                    武汉市科学技术协会

 

                                                                   2013年11月

试过了，只能打印当前行，而且列里的值加不进去，程序会假死。

 

谢谢指点！！！

看明白了。

现在还想请教一下，如何一次性打印出表中所有的行（记录）。

意思是说：点击“生成证书”按钮后，一次性打印所有成绩表中的奖证。（一条记录一张奖证）

期待中。。。。

先谢过！！！！！！

再次请教证书打印

上述代码改成预览执行时，每次只显示一页，给预览带来很大的麻烦，经多次修改仍然不能解决。

请专家指点

如何在预览时能一次性显示所有的页

For Each dr As DataRow In DataTables("表A").DataRows
    Dim rp As New RtfPrinter(ProjectPath &  "证书.rtf")
    rp.DataRow = dr
    rp.Preview()

Next

 

 

另外，我的预览页面今天怎么出现了狐表的网址水印

再次请教证书打印

上述代码改成预览执行时，每次只显示一页，给预览带来很大的麻烦，经多次修改仍然不能解决。

请专家指点

如何在预览时能一次性显示所有的页

 

期待解决9楼的问题，代码如何改？！！！

项目打开提示出错，好像是引用外部文件有问题，谢谢仔你把它发过来.。如果需要加装软件读取它，请告知！谢谢！！！

好的。谢谢！待会儿我试试。