Question

excel表格怎么实现单偶页打印

Answer 1

如果你的打印机支持双面打印，直接文件，打印，整个工作簿，然后在打印机属性里选择双面打印就可以了。

右击工作表标签
—
查看代码
—
插入
—
模块
—
粘贴代码
—
关闭
VBE
编辑器，回到工作表，工具
—
宏
—
宏，选择
Print_
双面，单击执行。
.

代码：

Sub Print_
双面
()
Dim pageTotal As Integer
Dim jPage As Integer
Dim OK

pageTotal = Application.ExecuteExcel4Macro("get.document(50)")

For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next

OK = MsgBox("
请把纸张装入打印机，打印偶数页
", vbOKCancel, "
双面打印
")

If OK = vbOK Then
For jPage = 2 To pageTotal Step 2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next
End If

End Sub
（来源于http://wenku.baidu.com/link?url=TRNkI6eKmUk7BeoWo4O_cftUuaxVqIeR1m9nbH8y-KRoKXbARHceJcJxeswTzAs5Bsg2hV81viFqMi6Oa67uvzIkFnAGB71RaFOKWnO96cS）

Answer 2

打印设置里有打印所有页，下拉，选中打印偶数页，就可以了。希望可以帮到你！