学习资源网 问答 打印所有的工作表(excel打印所有工作表)

打印所有的工作表(excel打印所有工作表)

时间: 2023-05-28 04:59:18  百科小知识

使用VBA代码可以实现批量打印所有的工作表:

1. 按下Alt+F11打开Visual Basic Editor;

2. 在左侧Project窗口中,双击需要打印的Excel文件名,进入该工作簿的项目视图;

3. 在上方的菜单栏选择Insert > Module,新建一个模块;

4. 将以下代码复制粘贴到模块中:

Sub Print_All_Sheets()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets

ws.PrintOut

Next ws

Application.ScreenUpdating = True

End Sub

5. 点击工具栏上的“运行”按钮或按下F5键,运行代码。

这个代码将逐个打印所有工作表,并在打印完毕后回复屏幕更新。如果需要自定义打印设置,可以调整代码中PrintOut的参数,具体参数可以参考Excel帮助文档中PrintOut方法的说明。

学习考试资源网-58edu © All Rights Reserved.  湘ICP备12013312号-3 
站点地图| 免责说明| 合作请联系| 友情链接:学习乐园