excel电子表格里面怎么实现奇偶页打印?
发布网友
发布时间：2022-04-25 15:10
共1个回答
热心网友
时间：2023-10-11 10:02
1.单击菜单工具→宏→录制新宏
。
2.在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行
将宏保存在个人宏工作簙中
单击确定后，按停止录制宏按钮
。
3.同时按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
4.在此界面下直接按F5运行此宏，解决问题。
