以文本方式查看主题

-  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
--  
呵呵。另外套打时怎么格式保存不下来呢?全部都缩到一块去了?且不支持线条?