EXCEL中如何先打印单数页再打印双数页?

2024-12-26 09:31:12

推荐回答（1个）

回答1：

需要用宏代码来实现。

点击视图-宏-输入宏的名字如dayin-创建。

2.出现的界面粘贴以下代码：

Sub dayin()
Dim x, i As Integer
x = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "现在打印奇数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "现在打印偶数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i
Next i
End Sub

3.退出编辑界面，点击视图-宏-执行就开始打印：