在excel里如何将整个工作簿实现双面打印设置
发布网友
发布时间：2022-04-27 03:15
共1个回答
热心网友
时间：2022-06-25 08:20
如果不是，得用宏。同时按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。
