在Word中，可以通過打印設置，修改打印“奇數頁”和“偶數頁”來設置雙面打印，那么在Excel中，如何實現Excel雙面打印呢？如果打印機不支持雙面打印，那么我們可以通過Excel VBA手動實現Excel雙面打印。
首先Excel2007打開代碼編輯器，單擊“插入”菜單-“模塊”，雙擊插入的模塊，在右側的代碼窗口中輸入：
Sub DoubleFacePrint()
On Error Resume Next
Dim x, i, j As Variant
x = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "請將紙放入打印機，開始打印奇數頁", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i – 1, To:=2 * i – 1
Next i
MsgBox "請將紙放入打印機，開始打印偶數頁", vbOKOnly
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
MsgBox "Excel雙面打印完畢", vbOKOnly
End Sub
按F5運行鍵，出現“請將紙放入打印機，開始打印奇數頁”提示時將紙張放入打印機，按“確定”按鈕開始打印奇數頁。出現“請將紙放入打印機，開始打印偶數頁”提示時將紙張放入打印機，按“確定”按鈕開始打印偶數頁。這樣就實現了Excel雙面打印。
