- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]word报表中多条记录如何分页生成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67136)
-- 发布时间：2015/4/18 20:46:00
-- [求助]word报表中多条记录如何分页生成
1、子表中，有的记录为4条，有的记录为15条，而word模板中每页要求只打印8条记录，请问一下超过8条的如何自动分页到第二页？
2、如何实现 如果记录超过8条，则不合计，只在最后一页合计？
3、窗体的表中如何实现自动汇总？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:城乡居民大病医疗保险打印.zip |
[此贴子已经被作者于2015/4/19 22:10:57编辑过]
-- 发布时间：2015/4/19 1:33:00
--
代码贴出来我告诉你！
-- 发布时间：2015/4/19 10:50:00
-- 回复：（童年）[求助]word报表中多条记录如何分页生成...
http://www.foxtable.com/help/topics/2882.htm
-- 发布时间：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() \'显示报表
-- 发布时间：2015/4/19 21:46:00
--
我试过了，只能打印第一页。
另外，如何实现 如何记录超过8条，则不合计，只在最后一页合计？
-- 发布时间：2015/4/19 21:47:00
--
为什么上传附件看不到了
-- 发布时间：2015/4/19 23:25:00
--
没办法，改用excel报表
-- 发布时间：2015/4/19 23:38:00
--
请问一下窗体的表中如何实现自动汇总？
-- 发布时间：2015/4/20 8:42:00
--
用代码http://www.foxtable.com/help/topics/1372.htm
-- 发布时间：2015/4/20 12:41:00
--
以下是引用Bin在2015/4/20 8:42:00的发言：
用代码http://www.foxtable.com/help/topics/1372.htm
用代码http://www.foxtable.com/help/topics/1372.htm
好的，晚上我试试。
正确的答案应该是http://www.foxtable.com/help/topics/2399.htm
[此贴子已经被作者于2015/4/20 22:38:32编辑过]