在excel里如何将整个工作簿实现双面打印设置

2024-11-27 01:15:26

推荐回答（1个）

回答1：

如果你的打印机支持双面打印，直接文件，打印，整个工作簿，然后在打印机属性里选择双面打印就可以了。

如果不是，得用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i, j As Integer
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
i = i + (sh.HPageBreaks.Count + 1) * (sh.VPageBreaks.Count + 1)
Next sh
For j = 1 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
MsgBox "请将纸反放后点OK，以打印偶数页", vbOKOnly, "Hi"
For j = 1 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
End Sub
在此界面直接按F5运行此宏，OK。