Excel中如何实现设置奇、偶页打印?

Question

Word中可以将“奇数页”和“偶数页”分开打印,从而实现多页文档的“双面打印”效果。但是,Excel中却没有这一功能，可以通过宏具体实现，但试了几种都不行!

Answer 1

1、第一种写法：

Sub PrintRL()
＇代码作用：在打印EXCEL文件时连续打印奇偶页
＇当为奇数时页脚设在右边，为偶时设在左边并打印
＇By redwin for yan
＇2007-4-16
Dim Numb As Integer
On Error Resume Next
＇得到当前工作簿的打印页数Numb
Numb = ExecuteExcel4Macro("Get.Document(50)")
＇MsgBox Numb
With ActiveSheet.PageSetup
For i = 1 To Numb Step 1
If i Mod 2 = 1 Then
.LeftFooter = ""
.RightFooter = "第 &P 页，共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
Else
.RightFooter = ""
.LeftFooter = "第 &P 页，共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
End If
Next i
End With
End Sub

2、第二种写法：

Sub PrintRL()
＇代码作用：在打印EXCEL文件时分开打印奇偶页
＇当为奇数时页码页脚设在右边，为偶时设在左边
＇By redwin for yan
＇2007-4-16
Dim Numb As Integer
Dim Numb1 As Integer
On Error Resume Next
＇得到当前工作簿的打印页数Numb
Numb = ExecuteExcel4Macro("Get.Document(50)")
＇MsgBox Numb
With ActiveSheet.PageSetup
＇先打印奇数页；考虑到放纸习惯，先设置好第一张的页码问题
If Numb Mod 2 <> 1 Then
Numb1 = Numb - 1
Else
Numb1 = Numb
End If
For i = Numb1 To 1 Step -2
.LeftFooter = ""
.RightFooter = "第 &P 页，共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
Next i
MsgBox "注意：奇数页已打印完毕，下面将打印偶数页，请注意放纸，确定后便开始喽！", _
vbInformation, "双面打印，将节约进行到底：）"
＇再打印偶数页
For i = 2 To Numb Step 2
.RightFooter = ""
.LeftFooter = "第 &P 页，共 &N 页"
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i
Next i
End With
End Sub

Answer 2

在文件，页面设置中啊，