excel2010打印偶数页的方法

　　在Excel中录入好数据以后通常需要打印数据，而有些情况需要只打印偶数页的数据，这个需求其实只需要我们简单的设置几步就可以实现要求了。下面是由小编分享的excel2010打印偶数页的方法，以供大家阅读和学习。

　　excel2010打印偶数页的方法(一)

　　打印偶数页步骤1：在打印设置里设置，点击文件-打印后在打印选择勾选奇数或偶数即可。这个办法主要适用07及以前的版本，以后的版本都没有这个选项了。

　　excel2010打印偶数页的方法(二)

　　打印偶数页步骤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

　　打印偶数页步骤2：在此界面下直接按F5运行此宏，就实现了。