求助：自动获取各sheet页码

xiaobd · 发表于 2023-3-31 19:25

求助：第一车间（可以打印1、2两页）、第二车间（可以打印1、2两页），都是有2页可以打印。如果选择同时打印第一车间、第二车间，打印出的效果是1、2、3、4页。
问题是：能不能在“目录”中自动取到每个sheet的页码，如上图红框中显示。

opiona · 发表于 2023-3-31 21:09

Worksheets("第一车间").HPageBreaks.Count + 1

xiaobd · 发表于 2023-4-3 09:14

1、我之前可能没有描述清楚：工作簿中的sheet数量不确定，每页需要打印的页数也不确定。
比如可能第一个sheet需要打印2页，第2个sheet需要打印5页，第3个sheet需要打印2页，第n个sheet需要打印8页等等）。

需求：要将工作簿中除了目录sheet之外的其他所有sheet一起打印，统一编写打印页码，我们想要在目录sheet中取到页码
比如：比如可能第一个sheet需要打印2页，第2个sheet需要打印5页，第3个sheet需要打印2页，第n个sheet需要打印8页，形成下面的统计效果

统计效果

2、不好意思，我对vba完全没用过，
（1）我将您发的
sub a()
Worksheets("第一车间").HPageBreaks.Count + 1
end sub
拷到vba中保存后会自动变成
sub a()
Worksheets("第一车间").HPageBreaks.Count 1
end sub

也就是count+1变成count1
(2)运行的时候提示：运行时错误‘438’ 对象不支持该属性或方法

调试

准提部林 · 发表于 2023-4-3 11:11

自訂函數// 注意:必須準確設定"打印範圍", 不然頁數可能會錯誤

PrintPage.rar (13.53 KB, 下载次数: 16)

zjzyj · 发表于 2023-4-3 15:14

内有三种方案供参考

xiaobd · 发表于 2023-4-6 19:58

在各位的帮助下，问题已解决，谢谢！！！

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

[求助] 求助：自动获取各sheet页码