开发学院软件教学办公软件 Excel 你身边的秘密：用好Excel的双面打印阅读

你身边的秘密：用好Excel的双面打印

　2007-05-30 21:46:12　来源：WEB开发网　　　

核心提示：从节约的角度出发，公司的表格都要求双面打印，你身边的秘密：用好Excel的双面打印，但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！编辑宏第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编

从节约的角度出发，公司的表格都要求双面打印。但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！

编辑宏

第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。

第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。

小提示

“PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

第三步:双击“模块1”进入代码输入区域，将下述代码输入其中:

　　Sub dy()
　　On Error Resume Next
　　x = ExecuteExcel4Macro("Get.Document(50)")
　　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
　　End Sub

第四步:输入完成后，关闭Visual Basic编辑窗口返回。

添加按钮

第一步:执行“工具→自定义”命令，打开“自定义”对话框(如图3)。