- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 文章套打 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5750)
-- 发布时间：2010/1/9 15:45:00
-- 文章套打
原来在易表中有个“文章套打”用起来很方便，狐表里能增加个“文章套打”功能吗？
-- 发布时间：2010/1/9 15:46:00
--
目前的狐表“文章套打”非易表的“文章套打”有本质的区别。
[此贴子已经被作者于2010-1-9 15:48:58编辑过]
-- 发布时间：2010/1/9 16:02:00
--
Dim rp As New RtfPrinter("c:\\Data\\report.rtf")
rp.DataRow = Tables("订单").Current.DataRow \'套打订单表的选定行.
rp.Replace("{Today}", Date.Today)
rp.Preview()
这个引号在打印时如何去掉？
-- 发布时间：2010/1/9 16:03:00
--
打印时不需要"{Today}"的这个引号
-- 发布时间：2010/1/9 19:23:00
--
模板中的Today不要加引号就好了。
-- 发布时间：2010/1/9 21:07:00
--
我至今没有弄懂文件套打意思，传个文件，请老师们帮作个实例，谢谢！主要原因是不知代码放在何处。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:奖 状.rar |
[此贴子已经被作者于2010-1-9 21:13:50编辑过]
-- 发布时间：2010/1/10 15:04:00
--
Dim r As Row = Tables("成绩表").Current
Dim rp As New RtfPrinter(ProjectPath & "奖 状.rtf")
rp.Replace("{班级}", r("班级") & "班")
rp.Replace("{姓名}", r("姓名"))
rp.Preview()
-- 发布时间：2010/1/10 20:17:00
--
谢谢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
[此贴子已经被作者于2010-1-10 20:48:02编辑过]
-- 发布时间：2010/1/10 20:24:00
--
贺老师看能不能用下列方式解决套打方式：将处理结果直接生成一个rtf文件？
若能这样，就可大量节约纸张了。
-- 发布时间：2010/1/10 21:31:00
--
那不是狐表的问题，您需要选择合适的纸张，任何应用程序都是这样的！