开发学院软件教学办公软件 Excel Excel 2007 添加“双面打印”按钮阅读

Excel 2007 添加“双面打印”按钮

　2007-01-14 21:35:29　来源：WEB开发网　　　

核心提示： 不需要进行任何操作，直接单击“开发工具”选项卡中的“停止录制”按钮，Excel 2007 添加“双面打印”按钮(2)，系统会自动生成一个隐藏的“个人宏工作簿”，特别提醒:以后需要在“个人宏工作簿&rdquo

不需要进行任何操作，直接单击“开发工具”选项卡中的“停止录制”按钮，系统会自动生成一个隐藏的“个人宏工作簿”。

特别提醒:以后需要在“个人宏工作簿”中编辑宏时，就不需要再进入此步操作了。

三、编辑“双面打印”代码

单击“开发工具”选项卡上的“Visual Basic”按钮，进入VBA编辑状态(如图4)。

特别提醒:按“Alt+F11”组合键，即可快速进入VBA编辑状态。

在左侧“工程资源管理器”中，展开“VBAProject(PERSONAL.XLSB)”选项(这就是“个人宏工作簿”)，双击其中的“模块1”，然后用下述代码替换右侧编辑区中的原有代码:

　　Sub smdy()
　　On Error Resume Next
　　x = ExecuteExcel4Macro("get.document(50)")
　　For i = 1 To Int(x / 2) + 1
　　ExecuteExcel4Macro "PRINT(2," & 2 * i - 1 & "," & 2 * i - 1 & ",1,,,,,,,,2,,,TRUE,,FALSE)"
　　Next i
　　MsgBox "请将打印纸反向装入打印机中", vbOKOnly, "打印另一面"
　　For j = 1 To Int(x / 2) + 1
　　ExecuteExcel4Macro "PRINT(2," & 2 * j & "," & 2 * j & ",1,,,,,,,,2,,,TRUE,,FALSE)"
　　Next j
　　End Sub

输入完成后，关闭VBA编辑窗口返回到Excel编辑状态。