如何用vba获取excel工作表打印的总页数？ |
您所在的位置：网站首页 › 统计所有文档页数 › 如何用vba获取excel工作表打印的总页数？ |
|
如何用vba获取excel工作表打印的总页数？
2019年2月25日
作者：水星Excel
10,737 次浏览
暂无评论
在打印excel工作簿文件时，每个excel工作表会按照顺序依次打印。 每个excel工作表根据数据内容和页面布局设置可以打印一页或者多页。 如果要用vba获取每个工作表实际打印出来的页数，需要使用Pages对象和Page对象。 以下vba代码通过遍历每个工作表的PageSetup对象的Pages属性，获取每个工作表的实际打印页数： Sub QQ1722187970() Excel.Application.ScreenUpdating = False Excel.Application.Calculation = xlCalculationManual Dim oWK As Worksheet For Each oWK In Excel.ThisWorkbook.Worksheets With oWK.PageSetup '获取工作表的打印总页数 iTotal = .Pages.Count Debug.Print iTotal End With Next Excel.Application.ScreenUpdating = True Excel.Application.Calculation = xlCalculationAutomatic End Sub 其它相关文章推荐：如何用vba将excel工作表的打印设置为横向或纵向？如何用vba设置工作表的打印顶端标题行和重复打印列？如何用vba把所有excel工作表的打印调整为1页宽？如何用vba按照excel工作表的名称排序？如何在vba中用ado合并多个工作表的内容？为什么在vba中使用Application.InputBox无法选择单元格区域？ 分类 : EXCEL VBA , VBA 标签 : page , pages , PageSetup , 工作表 , 总页数 , 打印 , 页数声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |