用好Excel双面打印功能从节约的角度出发,公司的表格都要求双面打印
但Excel偏偏没有这一功能
自己动手添加一个“双面打印”的按钮吧
编辑宏第一步:启动Excel2003(其他版本请仿照操作),执行“工具→宏→VisualBasic编辑器”命令,进入VisualBasic编辑状态
VisualBasic编辑状态第二步:在右侧的“工程资源管理器”区域中,选中“VBAProject(PERNOSAL
XLS)”选项,执行“插入→模块”命令,插入一个新模块(模块1)
小提示“PERNOSAL
XLS”叫做“个人宏工作簿”,第一次使用宏功能时,需要进入下述操作,添加“个人宏工作簿”:在Excel中,执行“工具→宏→录制新宏”命令,打开“录制新宏”对话框,输入一个名称,然后选择将其“保存在”“个人宏工作簿”中,确定返回,随便做一下编辑操作,然后按“停止录制”工具栏上的“停止录制”按钮,系统即可自动添加“个人宏工作簿”
“录制新宏”对话框第三步:双击“模块1”进入代码输入区域,将下述代码输入其中:Subdy()OnErrorResumeNextx=ExecuteExcel4Macro("Get
Document(50)")Fori=1ToInt(x/2)+1ActiveWindow
SelectedSheets
PrintOutFrom:=2*i–1,To:=2*i-1NextiMsgBox"请将打印出的纸张反向装入纸槽中",vbOKOnly,"打印另一面"Forj=1ToInt(x/2)+1ActiveWindow
SelectedSheets
PrintOutFrom:=2*j,To:=2*jNextjEndSub第四步:输入完成后,关闭VisualBasic编辑窗口返回
添加按钮第一步:执行“工具→自定义”命令,打开“自定义”对话框
“自定义”对话框第二步:切换到“命