excel如何打印奇偶页(宏命令).docVIP

excel如何打印奇偶页 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 = 第 amp;P 页，共 amp;N 页 ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i Else .RightFooter = .LeftFooter = 第 amp;P 页，共 amp;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 lt;gt; 1 Then Numb1 = Numb - 1 Else Numb1 = Numb End If For i = Numb1 To 1 Step -2 .LeftFooter = .RightFooter = 第 amp;P 页，共 amp;N 页 ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i Next i MsgBox 注意：奇数页已打印完毕，下面将打印偶数页，请注意放纸，确定后便开始喽！, _ vbInformation, 双面打印，将节约进行到底：） ＇再打印偶数页 For i = 2 To Numb Step 2 .RightFooter = .LeftFooter = 第 amp;P 页，共 amp;N 页 ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i Next i End With End Sub Dim myPrompt As String myPrompt = 请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下确定，继续打印 Pages = ExecuteExcel4Macro(Get.Document(50)) On Error Resume Next With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(0.8) .RightMargin = Application.CentimetersToPoints(2.3) End With ActiveWindow.SelectedSheets.PrintPreview If (Pages = 0) Then 如果为零，说明没有可打印内容，退出程序 MsgBox Microsoft Excel 未发现任何可以打印的内容, 0 + 48 Exit Sub End If myBottonNum = MsgBox(myPrompt, 1 + 48) 提示用户取出纸张，确认后继续打印 If (myBottonNum = 1) Then For j = 2 To Pages Step 2 ActiveSheet.PrintOut From:=j, To:=j 打印偶数页 Next j End If End Sub 按Alt+Q返回到工作表窗口，单击菜单“工具”→“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”→“自定义按钮”。 拖动自定义按钮到菜单栏或工具栏上，右击刚刚拖到菜单栏或工具栏上自定义按钮然后再“命名”后面输入“打印奇数页”（注意此时