利用宏:
按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运行此宏,就实现了。但是如果页数很多的话,这个时候可能会出现串页的情况,不是按奇数或偶数依次打印的。如果这样,可以程序改成
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
MsgBox "点击确定继续!"
Next i
MsgBox "现在打印偶数页", vbOKOnly
For i = 1 To Int(x / 2) 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i
MsgBox "点击确定继续!"
Next i
End Sub
这样的话,就可以通过点确定键控制打印了。