VBA新手求助，打印页面数量问题

☆Nick☆ · 发表于 2009-6-17 15:25

Sub PageCount()
MsgBox (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
End Sub

这个过程是通过计算水平和垂直分页符的数目，为活动工作表计算出打印页面的数量

可是我有点不明白
count 不是返回数目了吗，为什么还要+1
而且不+1数量就不对了
为什么？？

请哪位VBA高手解答一下，谢谢

mineshine · 发表于 2009-6-17 15:28

如果我们有两页要打印，就各只有一条水平和垂直分页符，
如果只用
Sub PageCount()
MsgBox (ActiveSheet.HPageBreaks.Count) * (ActiveSheet.VPageBreaks.Count )
End Sub

就沒有计算到最后一页，所以要 +1。

☆Nick☆ · 发表于 2009-6-17 16:15

谢谢～～
明白了
原来这么简单
你不说我一直想不明白，更不明白为什么会想不明白
你一说我就明白了
有茅塞顿开的感觉
谢谢～～

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

[求助] VBA新手求助，打印页面数量问题

回复 1楼 ☆Nick☆ 的帖子

回复 2楼 mineshine 的帖子

最新热点 /1