可以使用宏就可以完成了。
按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运行此宏，就实现了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024