作者：绿色风
分类：
时间：2022-08-17
浏览：127
楼主
gvntw |
Q：如何取得工作表的总打印页数？
A：TotalPages = ExecuteExcel4Macro("Get.Document(50)") |
2楼
gouweicao78 |
补充不用宏表函数的方法（网上的）- Sub NumberOfPrintedPages()
- Worksheets(1).DisplayAutomaticPageBreaks = True
- HorizBreaks = Worksheets(1).HPageBreaks.Count
- HPages = HorizBreaks + 1
- VertBreaks = Worksheets(1).VPageBreaks.Count
- VPages = VertBreaks + 1
- NumPages = HPages * VPages
- Worksheets(1).DisplayAutomaticPageBreaks = False
- MsgBox NumPages
- End Sub
|
3楼
ljh29206 |
TotalPages = ExecuteExcel4Macro("Get.Document(50)")
我测试过 可以用。
问下 gvntw 老师 写出这样的东西 是通过什么思路想出来的 我按了F1 TotalPages\Get.Document(50)
都没帮助说明的 。
写出这样的语句 是靠自己的经验累积？ |
4楼
sto888 |
精品不能错过，感谢楼主分享！ |
5楼
kevinchengcw |
学习一下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一