开发学院软件教学办公软件 Excel 轻松为Excel 2007添加一个双面打印按钮阅读

轻松为Excel 2007添加一个双面打印按钮

　2007-05-31 21:56:41　来源：WEB开发网　　　

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

图3 录制新宏

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

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

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

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

图4 进入VBA编辑状态

特别提醒:按“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