excel中如何实现奇偶页打印   

打印机属性---输出---打印顺序可以实现   如果打印机不支持，没有这个选项，就要用“宏”来实现：   右击工作表标签—查看代码—插入—模块—粘贴代码—关闭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