[求助]word报表中多条记录如何分页生成 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]word报表中多条记录如何分页生成

共有3936人关注过本帖树形打印复制链接主题：[求助]word报表中多条记录如何分页生成

童年

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：900 威望：0 精华：0 注册：2011/12/16 14:00:00

[求助]word报表中多条记录如何分页生成 发帖心情

Post By：2015/4/18 20:46:00 [只看该作者]

1、子表中，有的记录为4条，有的记录为15条，而word模板中每页要求只打印8条记录，请问一下超过8条的如何自动分页到第二页？

2、如何实现如果记录超过8条，则不合计，只在最后一页合计？

3、窗体的表中如何实现自动汇总？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:城乡居民大病医疗保险打印.zip

[此贴子已经被作者于2015/4/19 22:10:57编辑过]

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7253 积分：40736 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2015/4/19 1:33:00 [只看该作者]

代码贴出来我告诉你！

wyz20130512

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1249 积分：9468 威望：0 精华：0 注册：2013/5/12 9:22:00

回复：（童年）[求助]word报表中多条记录如何分页生成... 发帖心情

Post By：2015/4/19 10:50:00 [只看该作者]

http://www.foxtable.com/help/topics/2882.htm

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47480 积分：251289 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/19 10:55:00 [只看该作者]

很简单，参考：

http://www.foxtable.com/help/topics/2882.htm

如果要写代码，参考：

http://www.foxtable.com/help/topics/2890.htm

注意：

RecordsOnEachPage

属性，整数型，指定每页打印的记录数。

代码：

Dim tm As String = ProjectPath & "Attachments\aaa.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\aaa.doc" '指定目标文件
Dim wrt As New WordReport(Tables("员工"),tm,fl) '定义一个WordReport
wrt.RecordsOnEachPage = 8
wrt.Build() '逐行生成报表
wrt.Show() '显示报表