EXCEL中双面打印？一个工作簿中多个工作表怎样设置，能打印出反面都无空白页？
发布网友
发布时间：2022-04-29 02:54
共1个回答
热心网友
时间：2023-10-08 16:09
如果不是，得用宏。同时按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 = 2 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
End Sub
在此界面直接按F5运行此宏，OK。
即使每个工作表多余一页也可以解决。
热心网友
时间：2023-10-08 16:09
如果不是，得用宏。同时按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 = 2 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
End Sub
在此界面直接按F5运行此宏，OK。
即使每个工作表多余一页也可以解决。
