易表在线答疑技术与交流用户社区 → 如何在打印时控制每张表的记录数


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

主题:如何在打印时控制每张表的记录数

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


加好友 发短信
等级:超级版主 帖子:13147 积分:-89 威望:0 精华:0 注册:2006/8/11 11:14:00
  发帖心情 Post By:2006/10/27 2:00:00 [显示全部帖子]

看似简单的问题,我却搞了二十分钟,没想出好办法。

egd文件下载


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


加好友 发短信
等级:超级版主 帖子:13147 积分:-89 威望:0 精华:0 注册:2006/8/11 11:14:00
  发帖心情 Post By:2006/10/27 2:01:00 [显示全部帖子]

提醒一下楼主,提问请到用户区!!!

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


加好友 发短信
等级:超级版主 帖子:13147 积分:-89 威望:0 精华:0 注册:2006/8/11 11:14:00
  发帖心情 Post By:2006/10/27 12:12:00 [显示全部帖子]

二楼文件有点小错误,将自定义按钮改成这样:

ClearSubtotal() And DelFor(Grid,"部门","=","") And SetVariable("%B%",[%A%]) And Subtotal("部门","金额,第六列,第七列,第八列","2,2,2,2")And RecalcCol("a") And Eval("LocateFor(""部门"",""="","""+Substitute([%B%],"|",""") And Move(lastrow,Col) And AddRows(Grid,15-[a]) And LocateFor(""部门"",""="",""")+""") And Move(lastrow,Col) And AddRows(Grid,15-[a])") And RecalcCol("a")And SetCellText(Grid,rows,"a","总计") And Report(Grid,"a",1,rows,0) And DelFor(Grid,"部门","=","","序号","<>","总计")


 回到顶部