在EXCEL中怎样设置奇偶页打印?
发布网友
发布时间：2022-04-22 06:27
共1个回答
热心网友
时间：2023-07-04 22:37
用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
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
在此界面下直接按F5运行此宏，解决问题。
