在EXCEL2007中如何实现双面打印？

(2012-01-08 10:25:55)

准备：如果第一次使用宏功能时，需要添加“个人宏工作簿”（PERNOSAL.XLS）:启动Excel，在“开发工具”选项卡上的“代码”组中，单击“录制宏”(如图1)，

打开“录制新宏”对话框。输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后在“代码”组中单击“停止录制”按钮。系统即可自动添加“个人宏工作簿”。

第一步:启动Excel 2007，执行“开发工具→代码→Visual Basic”命令，进入Visual Basic编辑状态(如图2)。

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

第三步:双击“模块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编辑窗口返回。

第五步：添加按钮。1、单击“Microsoft Office 按钮”

，然后执行“EXCEL 选项” →“自定义”，在“从下列位置选择命令”

的下拉列表中，单击“宏”，会发现下面的表框中多出了一条

。如图。

2、选择PERSONAL.SLSB！dy,单击“添加”，会发现右边的方框中多了一条按钮。如图：

3、点击下方的“修改（M）……”，弹出“修改按钮”对话框，如图：

选择喜欢的按钮，然后重新命名按钮名称，将显示名称由PERSONAL.SLSB！dy改为如“双面打印”，单击“确定”，关闭“EXCEL选项”，返回到EXCEL编辑状态。

双面打印：启动Excel，打开需要双面打印的工作簿文件，单击“双面打印”按钮（如图），

系统先将奇数页打印出来，然后弹出如图所示的提示框，

将打印的纸张反向装入打印机的纸槽中，按下“确定”按钮，即可将偶数页打印到另一面上，达到双面打印的目的。

提示：

如果在打印过程中，出现夹纸现象，致使部分页面损坏，可以通过执行“文件→打印”命令，打开“打印”对话框，用手动的方法将少量损坏的页单独打印出来即可。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。