Foxtable(狐表)用户栏目专家坐堂 → [讨论]word报表的一些问题


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

主题:[讨论]word报表的一些问题

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


加好友 发短信
等级:婴狐 帖子:15 积分:197 威望:0 精华:0 注册:2017/10/16 9:54:00
[讨论]word报表的一些问题  发帖心情 Post By:2018/3/7 16:00:00 [只看该作者]

 用的WordReport加载word模板生成报表,但是本身WordReport没有打印的方法,还得启动一个process打开来打印,这样速度严重打折扣,请问有没有直接打印word的方法。以前易表模板生成和打印速度很快,现在升级到狐表后,这部分大打折扣了。请教怎么优化,因为报表模板还需要经常变更,所以用窗口和专业报表就不太合适了。请问高手有啥解决方案。图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/7 16:34:00 [只看该作者]

比如

 

Dim tm As String  = ProjectPath & "Attachments\出库单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.print

 

http://www.foxtable.com/webhelp/scr/2890.htm

 


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


加好友 发短信
等级:婴狐 帖子:15 积分:197 威望:0 精华:0 注册:2017/10/16 9:54:00
  发帖心情 Post By:2018/3/7 17:06:00 [只看该作者]

名称说明
Build方法,生成报表。
BuildOne方法,根据指定的一行数据生成报表,语法:

BuildOne(dr)

dr: DataRow或Row类型,根据此行数据生成报表。
Replace方法,将指定的内容替换为新的内容,语法:

Repalce(findstr,replacestr)

findstr: 字符型,指定要查找的内容
replacestr: 字符型,指定用于替换的内容。

Replace是全局有效。

ReplaceOne方法,将指定的内容替换为新的内容,语法:

RepalceOne(findstr,replacestr)

findstr: 字符型,指定要查找的内容
replacestr: 字符型,指定用于替换的内容。

ReplaceOne只对下一条记录生效,需要和BuildOne配合使用。

ReplaceWithImage方法,将指定的内容替换为图片,语法:

ReplaceWithImage(findstr,imagefile,width,height)

findstr: 字符型,指定要查找的内容
imgefile:字符型,用于替换的图片文件
width: 整数型,指定图片宽度
height:整数型,指定图片高度
Quit方法,退出报表
Show方法,启动Word,显示生成的报表。
SaveToPdf保存工作簿为PDF文件,语法为:

SaveToPdf(File)

File: 文件名称,含路径。

RecordsOnEachPage属性,整数型,指定每页打印的记录数。
只有这些属性, 没有print方法啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/7 18:05:00 [只看该作者]

有的,你执行2楼代码,有什么问题?

 回到顶部