专家坐堂-[讨论]word报表的一些问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]word报表的一些问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115463)

--  作者：jacky7710
--  发布时间：2018/3/7 16:00:00
--  [讨论]word报表的一些问题

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

--  作者：有点甜
--  发布时间：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
--  发布时间：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方法啊

--  作者：有点甜
--  发布时间：2018/3/7 18:05:00
--
有的，你执行2楼代码，有什么问题？