Foxtable(狐表)用户栏目专家坐堂 → 建议增强狐表与word办公软件的兼容性


  共有9570人关注过本帖树形打印复制链接

主题:建议增强狐表与word办公软件的兼容性

帅哥哟,离线,有人找我吗?
程兴刚
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7249 积分:40704 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/4/21 16:27:00 [显示全部帖子]

这好像是两回事,不过只有贺老师才知道能否实现!

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7249 积分:40704 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/4/21 18:05:00 [显示全部帖子]

如果仅仅是在word中替换数据,现在也可以啊?

关于文章套打

RtfPrinter类用于文章套打。
文章的类型必须是RTF格式,常用的文字处理软件,例如Word,都可以将文章保存为RTF格式。

打印一篇文章的代码非常简单:

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.Preview()

上面的代码是预览,如果要直接打印,代码为:

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.Print()

显然,我们的目的是套打,套打的原理非常简单,我们在编辑文章的时候,可以在文章中插入一些特殊的标记,然后利用RtfPrinter的Replace方法,将这些标记替换为数据。
例如你在文章中插入了一个特殊的标记"{Today}",希望套打的时候,能够将这个标记替换为当天的日期:

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

虽然你可以使用任何字符作为标记,但是我们推荐您用大括号加上说明字符作为标记,以便于维护。


。。。。。。

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7249 积分:40704 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/4/22 8:54:00 [显示全部帖子]

套打时设为打印预览,在另存为试试!

 回到顶部