《轻松为Excel添加一个双面打印按钮.doc》由会员分享，可在线阅读，更多相关《轻松为Excel添加一个双面打印按钮.doc（12页珍藏版）》请在三一文库上搜索。
1、轻松为Ex c e l添加一个双面 打印按钮作者:日期:屋近便用的文宿刁开心.三TUB.共享旦单i-Tublkh展开“开发工具”选项卡图1下拉菜单轻松为Excel2007添加一个双面打印按钮要在Exc el中实现“双面打印”，就要用到其内嵌的VBA功能，因此，需要先展开“开发工具”选项卡。启动Exce 120 0 7,单击左上角的软件图标， 在随后出现的下拉菜单中（如图1），选择“ Exc e l选项”选项，打开“ Exc el选项”对话框（如图 2）。大家知道，在Word中可以将“奇数页”和“偶数页”分开打印，从而实现多页文档的“双面打印”效果。但是，在Exce 1中却没有这一功能。下面，我
2、们就以Exce l20 0 7为例 为其添加一个具有“双面打印”功能的按钮。草击一下僮用Excel科孫阳阖制左单去"下d11凶3让I址©L实现双面打E卩.P生成“个人宏工作簿我们需要将其保存在“个人宏工作簿需要先让软件生成一个隐藏的“个人宏工作簿”。图2 Excel选项对话框n 展先在左侧选中“个性化设置”选项，然后在右侧“使用 Excel时采用的首选项”下面选中“在功能区显示开发工具选项卡”，确定返回。为了让“双面打印”按钮对所有工作簿都有效 中。第一次使用“宏”这个功能时一 y«e爭 kyvtg,单击其中的“录制宏”按钮，打开“录制新宏”对话框's m
3、dy'），按“保存在”右侧的下拉按钮,在随后出现的选项，确定进入“宏”录制状态。切换到“开发工具”选项卡中（如图3 ）。输入一下宏名称（如 下拉列表中，选择“个人宏工作簿”宏名W-悽捷健直）：CtrH-傑存圧X）:斤人宏工作浮说明凰|；主中它录确宏不需要进行任何操作，直接单击“开发工具”选项卡中的“停止录制”按钮， 系统会自动 生成一个隐藏的“个人宏工作簿”特别提醒：以后需要在“个人宏工作簿”中编辑宏时，就不需要再进入此步操作了。三、编辑“双面打印”代码单击“开发工具”选项卡上的“ Visu al Basi c”按钮，进入 VBA编辑状态(如图4)。I1-1 MSBJt比FIlvliM
4、B Ill UbiriHII 3UI7 TAH"f j« c t CIZLJIfl ISd ipMt I hl oI riElllULL ELE.13E!Imill讹刚4F&H£止.奇日J Y * j；1.Qv Eft ft Iwm i *:i 匚那"Ari泊亠叭L*”咼廿fcp l I. Id brt 転封 * 1 ' «2.-<W lliiraiilili-iJkit a L|!fi寸士円田ir .nil rair fgy pyeafc/. gctf图4进入VBA编辑状态特别提醒：按“ Alt + F 11”组合键,即
5、可快速进入 VBA编辑状态。在左侧“工程资源管理器”中，展开“ VE APro ject(P E RS3A L. X L S B)”选项(这就是“个人宏工作簿”),双击其中的“模块1”，然后用下述代码替换右侧编辑区中的原有代码：Su b Dou()On Error R e s u me Nextx = ExecuteExcel4M a cro ("ge t .document(50)") ? For i = 1 To Int(x /2 )+ 1Ex e c u t eExc e l4Ma c ro "PR I N T (2，”& 2 * i-1&
6、"，”& 2 * i - 1& " , 1,2,T R UE ,FAL S E)"Ne xt i ?Ms gB ox "请将打印纸反向装入打印机中"，vbOK On ly,"打印另一面"Fo r j =1 T o I nt( x /2)+1E xecut eEx c el4M a cr o "PR I NT( 2, " &2* j & ”，” &2 伙j &",1 2,T R UE ,FALS E)"Ne x t j ?E nd Su b
7、输入完成后，关闭 VBA编辑窗口返回到Excel编辑状态。四、添加“双面打印”按钮其实，我们只要运行上面“ smdy'宏，就可以实现双面打印效果了。但是,为了操作上的方便，我们在“快速访问工具栏”上添加一个“双面打印”的按钮。右击左上角的软件图标，在随后出现的下拉菜单中，选择“自定义快速访问工具栏”选 项，打开“ Exc el选项”对话框，并定位到“自定义”选项中 （如图5）。UAjG ”i虹叱出J ；匕-=te* -i:-B ry>'= i；|a-T；-wTir.»iI券九世r；耳it工tgft 用匚 urtIT >厂沁 辛生Jd |斶打印I 确定ver
8、KK=T译士匚ft"图5自定义选项单击“从下拉位置选择命令”右侧的下拉按钮，在随后出现的下拉列表中，选中“宏”选项。将刚才编辑的宏“ PERSON L.XLSB!s m dy” “添加”到右侧的快速工具栏中。单击其中的“修改”按钮，打开“修改按钮”对话框 （如图6）,选中一个图标，并输入“显示名称”（如“双面打印”）,确定返回到“ Excel选项”对话框中，再“确定”退出。符号:晨9 9 0 0 ®壬凰z立m昼QYLU車00丘观瓦国It； O y? © 8週乜事"时*图6修改按钮特别提醒：不修改“显示名称”项目的内容，并不影响宏的正常运行和结果。五、实现
9、“双面打印”系予.a-te诸疼打印纸反向裝只HEM中特别提醒1没i- 嘆弍w J»"Z 图7双面打印图9对话框图8提示反向装纸时，一定要先测试一下，装纸的顺序和方向，确定正确打印Microjshft Dtffi c* Ekcrl Bf #力的.打开相应的文档，单击窗口上端“快速访问工具栏”(如图 7)上的“双面打印”按钮 统即刻开始打印“奇数页”，打开完成后，弹出如图8所示的提示框。将刚才打印出来的文档纸张， 依次反向装入打印机中，单击一下图8中的“确定”按钮 即可将“偶数页”打印到纸张的另一面上，实现“双面打印”之目的。y“屮 com在打印另一面时，如果出现夹纸等意外情况
10、，造成部分页面打印的错误，请手动将错误 页面重新打印一下。如果在E xcel200 3及以前版本中使用此宏，只要修改两行代码就行了 ：将“E x e cute Excel4Ma cr o "PRIN T(2,"&2*i -1& ”，"& 2 * i公式 號” A. * Aj y爾耐编辑了 “个人宏工作簿”后 ，退出Excel时,会弹出一个如图9所示的对话框，请一定 要单击其中的“是(Y) ”按钮，保存上述宏代码。Vk肘忘£龙全悝Basic代码幵皓 应,& " ,1 , ,2”， T RUE, FA L S E)&
11、quot; ”修改为“ Act iv eWi ndow.Sel ec tedShe e ts.Pr i ntO u t From:=2 * i - 1 , To :=2 * i 1 , Cop i e s :=1, Collate:=Tru e” ,将“ Execu t eExce 1 4Macr o" P RINT (2," &2 * j &"，” & 2 * j&" ,1, , , , ,2 , , T RUE, ,FALSE)" ”修改为“ ActiveWi n d o w.S el ectedSheet s.Print O ut F r om =2 * j, To:= 2* j , C opi e s: = 1, C ollate:=True ”。