TO:XTL:自动分页小计示例

Rowen · 发表于 2004-9-24 13:19

1. 不合格太宽, 合计项不在一页. 可先隐藏部分列或自定义纸张

2.Sub 新建分页小计() Dim iSubCol As Integer, rSubArea As Range Dim hb As HPageBreak

ActiveWindow.View = xlPageBreakPreview ' 进入分页浏览模式, 以便 EXCEL 正确计页 Set r1stSubCell = Range("a2") ' 本例名单从 A5 单元格开始上一句改为 Range("H2")

mgqijun · 发表于 2004-9-26 10:53

谢谢Rowen，但是为什么少了最后一页的合计呢？？？

zz5151353 · 发表于 2004-9-26 23:23

正是我所要的，先收藏，谢谢！

zjdany · 发表于 2004-10-22 10:43

急急急!

我把楼主的页面稍微修改了一下，但出现了几个问题，请大虾们帮忙： 1、我只要DEFG四列合计即可，日期与公司不要合计 2、预览时为什么会出现每页的行数不等，我希望能根据行高自动调整行数。

zjdany · 发表于 2004-10-22 10:44

文件如下

pzf4aZ6a.rar (12.2 KB, 下载次数: 109)

zjdany · 发表于 2004-10-22 11:06

[em06]

zjdany · 发表于 2004-10-22 11:08

怎么没人说话呀

wx-x · 发表于 2004-10-22 13:31

很好,斑竹.

qq123 · 发表于 2004-11-8 22:46

版主，能不能规定每多少行自动分页小计呢？例如每20行分成一页。

gz_wu · 发表于 2005-1-17 10:07

非常好,我也收一个

		自动登录	找回密码
密码			免费注册