EXCEL怎么设置奇数页打印和偶数页打印

2025-03-13 16:44:13

推荐回答（2个）

回答1：

用宏。同时按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运行此宏，解决问题。

回答2：

2016版
文件
导出
创建PDF/XPS文件
选择相应的选项
发布
制做成PDF文件
利用ADOBE
READER
可打印奇偶页