资源描述：
《宏功能实现Excel双面打印.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、个人收集整理勿做商业用途宏功能实现Excel双面打印使用Eｘceｌ时，你会发觉找不到进行双面打印的操作选项,没办法只能手动一张张的打印，若是要打印的文件页码很多,那这个工作就有点头痛了。跟我来，使用Excｅl的宏功能,花几分钟进行设置,你也能用Excel双面打印。第一次使用宏功能,需要添加“个人宏工作簿”:在Eｘcｅl中,执行“工具→宏→录制新宏”命令,打开“录制新宏”对话框,然后选择将其“保存在”“个人宏工作簿”中(如图一）,确定返回，随便做一下编辑操作,然后按“停止录制”按钮，系统即可自动添加“个人宏工作簿”。图一第一步：启动Ｅｘcel，执行“工具
2、→宏→ＶisｕａｌBasic编辑器”命令，进入Vｉsｕａｌ Basic编辑状态（如图二)。图二个人收集整理勿做商业用途第二步:在右侧的“工程资源管理器”区域中，选中“ＶBAProjeｃt(PＥRNＯSAL.ＸLＳ)”,展开“VＢＡＰroｊect(PERＮOSＡＬ.XＬＳ)”分支，双击“模块1”进入代码输入区域（如图三）。 图三个人收集整理勿做商业用途将下述代码粘贴覆盖原有内容(如图四）:Ｓub 双面打印() MsgBox"即将进行双面打印！取消打印请按住Esｃ键一秒钟", vbOKＯnly，＂----提示-－--" On ErｒｏrＲesumeNeｘt
3、 NｕmPagｅｓ＝ExecuｔｅExｃｅl4Macro(＂ＧET.ＤOＣUMENＴ（5０）＂) FｏrPage=NumPagesTｏ 1Sｔep-1ActiｖeShｅｅｔ.PrｉntOutFrom:＝２ * Page, Ｔo:=２* Page NｅｘtPａge MsgＢｏx "请将打印好的偶数页纸张拿出，反向装入纸槽中。",vbOＫOnly,"准备打印另一面"Ｄim TotaｌPg AｓＩｎtegeｒ TotalPg =ExｅｃuteExceｌ4Maｃro("GET.DOCＵＭENＴ(50）＂) Fori =1Ｔｏ ＴotalPｇStｅp2
4、ActivｅSheet.ＰｒｉntＯｕt Frｏm:=i, Ｔｏ:＝ｉNextＥndSub（如图四）图四个人收集整理勿做商业用途第三步:输入完成后,关闭ViｓｕａlＢａｓｉc编辑窗口,再执行“工具→宏→VｉsualBａsic编辑器”命令,进入VｉsｕalBasic编辑，选中“VBAＰrojｅｃｔ（PERNOＳAL.XLS)”,展开“VBAProject(PERNOＳＡL.XLＳ)”分支，双击“模块1”进入代码输入区域，看看刚才的代码是否已经粘贴进去，确认代码内容已经粘贴进去后，关闭VｉsｕａlBａsｉc编辑窗口。第四步:回到Ｅｘceｌ编辑状态,添加按钮
5、。执行“工具→自定义”命令,打开“自定义”对话框。第五步:切换到“命令”标签下,在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮（如图五)。图五个人收集整理勿做商业用途第六步：右击刚添加的按钮,在展开的菜单中，在“命名”右侧的方框中输入按钮名称“双面打印”;右击刚添加的按钮,选中“总是用文字”选项（如图六)；图六右击刚添加的按钮，选择“指定宏”选项,打开“指定宏”对话框，选中刚编辑的宏，位置选:PEＲNOSＡL．XLＳ（如图七)。关闭“自定义”对话框返回Excel编辑状态。个人收集整理勿做商业用
6、途图 七宏编辑完成了。该代码的打印顺序是这样的：先将偶数页逆序打印出来，然后把打印好的偶数页再放回打印机进纸槽,执行奇数页打印。打开需要双面打印的文件,单击“双面打印”按钮，按照弹出提示操作,即可进行双面打印。写在最后:本人对代码可以说是一窍不通，只是平时总是为Ｅxcel的双面打印而抓狂,在网上也找不到能解决的途径，就找来一些代码东拼西凑,经过几小时的调试,总算能胜任双面打印的要求,希望本文对和我遇到一样问题的人有所帮助。２01０年３月写于丽江
