如何通过关闭与打印机的通信的方式加速进行页面设置的速度？

作者：绿色风分类：时间：2022-08-18 浏览：73

楼主
omnw

excel中增中了PrintCommunication属性，用于指定]与打印机的通信是否开启，使用VBA进行页面设置时可以关闭与打印机的通信，实现加快VBA运行速度的效果。
对一个有23个工作表，每张工作表需要打印4页的工作簿，使用如代码大约可以提高37%的运行速度。

Sub a()
Dim i As Double
Dim sht As Worksheet
i = Timer
Application.PrintCommunication = False
For Each sht In Worksheets
With sht.PageSetup
.LeftFooter = ""
.CenterFooter = ""
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Next
Application.PrintCommunication = True
Debug.Print Timer - i
End Sub

2楼
eliane_lei

进来学习，谢谢分享！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表