excel里的表格怎么打印偶数页或奇数页?请告知详细些。
发布网友
发布时间：2022-04-25 15:10
共1个回答
热心网友
时间：2022-05-07 16:16
按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运行此宏，就实现了。
