以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  套打中特殊标记的问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=892)
--  作者：ahljy351
--  发布时间：2008/10/16 11:33:00
--  套打中特殊标记的问题？

Dim rp As New RtfPrinter("c:\\Data\\report.rtf")
rp.Replace("{Today}", Date.Today)
rp.Preview()


上面的{TODAY}在RTF文件中应该没有“”吧？另外如果不是DATE型的，是字符或其它类型的如何替换？

如：{日期}，换成列[报告日期]的中文大写？

这样做提示错误？
Dim rp As New RtfPrinter("受理通知单.rtf")
rp.DataRow = Tables("房产登记").Current.DataRow \'套打订单表的选定行.
rp.Replace("{日期}", CUDate("报告日期"))
rp.Preview()
--  作者：狐狸爸爸
--  发布时间：2008/10/16 11:48:00
--  
rp.Replace("{日期}", CUDate("报告日期"))

上面的代码是什么意思？ "报告日期"是一个字符，能转换为日期吗？

应该是：

rp.Replace("{日期}", CUDate(rp.DataRow("报告日期")))

呵呵，数据、变量、行、列，这些基本的概念，你还没有搞明白呢。
--  作者：ahljy351
--  发布时间：2008/10/16 12:15:00
--  
呵呵。另外套打时怎么格式保存不下来呢？全部都缩到一块去了？且不支持线条？