主题：文章套打

原来在易表中有个“文章套打”用起来很方便，狐表里能增加个“文章套打”功能吗？

目前的狐表“文章套打”非易表的“文章套打”有本质的区别。

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.DataRow = Tables("订单").Current.DataRow '套打订单表的选定行.
rp.Replace("{Today}", Date.Today)
rp.Preview()
这个引号在打印时如何去掉？

打印时不需要"{Today}"的这个引号

模板中的Today不要加引号就好了。

我至今没有弄懂文件套打意思，传个文件，请老师们帮作个实例，谢谢！主要原因是不知代码放在何处。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:奖 状.rar

Dim r As Row = Tables("成绩表").Current
Dim rp As New RtfPrinter(ProjectPath & "奖  状.rtf")
rp.Replace("{班级}", r("班级") & "班")
rp.Replace("{姓名}", r("姓名"))
rp.Preview()

谢谢C老师！修改了一下，可批量打印证书了。

但不知能否解决纸张浪费严重的问题，若1张纸能打印2个证书就可节省一半纸了？

For Each dr As DataRow In DataTables("成绩表").DataRows 
    Dim rp As New RtfPrinter("C:\Documents and Settings\Administrator\桌面\奖  状.rtf")
    rp.Replace("{班级}", dr("班级") & "班")
    rp.Replace("{姓名}", dr("姓名"))
    rp.Print()
Next

贺老师看能不能用下列方式解决套打方式：将处理结果直接生成一个rtf文件？

若能这样，就可大量节约纸张了。

那不是狐表的问题，您需要选择合适的纸张，任何应用程序都是这样的！