68手游网

为节约用纸现在许多部门都要求双面用纸，但Excel偏偏没有双面打印功能。放弃Excel改用其他软件？恐怕多数人不会这么做，因为Excel强大的表格功能具有很强的吸引力。那么如何解决这一问题？其实很简单，我们可以自己动手，在Excel中添加一个“双面打印”按钮。
　　以Excel2003为例。打开Excel，点击“工具”→“宏”→“VisualBasic编辑器”，进入VisualBasic编辑状态。在弹出的窗口中点击左侧“工程资源管理器”区域中的“VBAProject（PERNOSAL.XLS）”选项，执行“插入”→“模块”，插入一个新模块。需要注意的是，假如你是第一次使用“宏”，在进行上述操作之前，需要添加“个人宏工作簿”，即PERNOSAL.XLS。

增加的模块其VB代码如下：
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：执行“工具→自定义”命令，打开“自定义”对话框。

2:切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮。
3:单击“更改所选内容”按钮，在随后展开的快捷菜单中，在“命名”右侧的方框中输入按钮名称(如“双面打印”，并选中“总是用文字”选项。

4:在不关闭“自定义”对话框的情况下，右击工具栏上刚才添加的“双面打印”按钮，在随后弹出的快捷菜单中，选择“指定宏”选项，打开“指定宏”对话框。
　　5:选中上面编辑的宏，确定退出，再关闭“自定义”对话框返回Excel编辑状态。
　　

启动Excel，打开需要双面打印的工作簿文件，单击“双面打印”按钮，系统先将奇数页打印出来，然后弹出提示框，将打印的纸张反向装入打印机的纸槽中，按下“确定”按钮，即可将偶数页打印到另一面上，达到双面打印的目的。
 

　　小提示

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