引:在企业日常办公中Excel以方便地编制报表被广泛应用，但它的打印输出很容易造成纸张的浪费
近年众多IT厂商大力提倡的“无纸化办公”理念，对于环境保护以及办公效率的提升，无疑是一个很好的发展方向。但综合当前企业办公的实际榭觯嬲龅桨旃拔拗交鄙写胬眩ㄓ芯×考跎侔旃兄秸诺南摹?lt;/P>
企业在日常办公中使用频率最高的就是Microsoft Office办公软件，其中Excel以方便地编制报表而被用户广泛应用，但它的打印输出却并不简单，稍不注意就有会造成打印纸张的浪费。本期我们将向您介绍：如何掌握Excel打印输出技巧，将有助于企业在日常办公中更好地节省。
设置“双面”打印
“双面打印”功能在企业办公打印输出中采用较为普遍，当前市场中，中高端激光打印产品均标配有硬件双面打印单元。而针对喷墨打印机，Excel实现双面打印方法为：
1、启用打印机的双面打印功能：有些打印机只要安装了驱动程序，就可以在打印属性中找到“双面打印”选项，如Canon PIXMA iP1000、HP Photosmart 8158等喷墨打印机。找到打印设置项并勾选“双面打印”复选框即可。
2、借用奇偶打印功能：在“打印”对话框中，按下端“打印”右边的下拉按钮，选定“奇数页”选项，“确定”打印。“奇数页”打印完成后，将打印了内容的纸张翻过来装入打印机，再将“偶数页”打印上去就行。
图一 启动“VB”进入VBA编辑状态
3、编制“双面打印”代码：单击“开发工具”选项卡上的“Visual Basic”按钮，进入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 输入完成后，关闭VBA编辑窗口返回到Excel编辑状态即可。
图二Excel打印功能增益集插件
4、借助第三方工具：“ExcelPrinter”是一款可以增强Excel打印功能的插件，不仅适用于Excel 2003，同时也适用于Excel 2007(如图二)。软件下载安装后，该插件会在Excel 2007“加载项”选项卡的“自定义工具栏”中添加程序图标。该插件不仅支持“手动双面打印”功能，同时还具有“打印当前页”功能。 |
