计算总页数使用什么函数？

shuiyuan · 发表于 2002-5-20 20:36

计算总页数使用什么函数？

zhy9677 · 发表于 2002-5-21 21:29

Excel的页数可以任意指定，因此没有所谓的总页数之说。

shuiyuan · 发表于 2002-5-21 22:41

我说的总页数是指：使用A4纸打印时假设需要20页，那么当纸张选定后（比例为固定）其总页数即为20，这个20用什么函数可以得到？因为在编制打印文件时需要总页数。使用页眉页脚可以看到总页数，但不知如何才能把着这个放到自己的程序里？先谢了！

zhy9677 · 发表于 2002-5-22 08:17

可以在Excel的页面设置中显示页码和总页码。至于如何得到总页数，我还得想想

roof · 发表于 2002-5-22 15:47

用VBA，计算横向和纵向分页符的数目即可。

zhy9677 · 发表于 2002-5-22 17:35

activesheet.hpagebreaks.count activesheet.vpagebreaks.count 好像有时结果不对

[此贴子已经被作者于2002-5-22 17:35:10编辑过]

shuiyuan · 发表于 2002-5-23 07:29

谢谢二位。

shuiyuan · 发表于 2002-5-23 07:48

试用后，还是不能计算总页数。

roof · 发表于 2002-5-23 11:02

试试这个： Sub NumberOfPrintedPages() HorizBreaks = Worksheets(1).HPageBreaks.Count HPages = HorizBreaks + 1 VertBreaks = Worksheets(1).VPageBreaks.Count VPages = VertBreaks + 1 NumPages = HPages * VPages MsgBox NumPages End Sub

shuiyuan · 发表于 2002-5-23 11:04

谢谢！我试试。

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