编辑excel宏命令双面打印excel2003表格

《编辑excel宏命令双面打印excel2003表格》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、编辑Excel宏命令双面打印Excel2003表格在Word2003的“打印”对话框中可以方便地设置双面打印Word文档，但是在Excle2003中则没有双面打印的设置选项。用户可以通过在Excel2003中编辑宏命令实现双面打印Excel2003表格。1．编辑Excel2003宏命令在Excel2003中第一次使用宏功能时，需要添加“个人宏工作簿”（即PERNOSAL.XLS），然后再使用VisualBasic编辑器编辑双面打印的宏命令。操作步骤如下所述：第1步，打开Excel2003，在Excel2003窗口中依

2、次单击“工具”→“宏”→“录制新宏”菜单命令，打开“录制新宏”对话框。在“宏名”编辑框中输入任意名称，然后在“保存在”下拉菜单中选中“个人宏工作簿”选项，并单击“确定”按钮，如图2008070501所示。图2008070501选中“个人宏工作簿”选项第2步，在打开的录制宏工具栏中单击“停止录制”按钮，Excel2003即可自动添加“个人宏工作簿”，如图2008070502所示。图2008070502单击“停止录制”按钮第3步，在Excel2003窗口中依次单击“工具”→“宏”→“VisualBasic编辑器”菜单命令

3、，打开VisualBasic编辑器窗口。右键单击左侧“工程”窗格中的“VBAProject(PERNOSAL.XLS)”选项，依次选择“插入”→“模块”菜单命令插入模块1，如图2008070503所示。图2008070503选择“插入”→“模块”命令第4步，双击“模块1”打开代码输入窗口，输入下面的代码：Subdy()OnErrorResumeNextx=ExecuteExcel4Macro("Get.Document(50)")Fori=1ToInt(x/2)+1ActiveWindow.SelectedSheet

4、s.PrintOutFrom:=2*i-1,To:=2*i-1NextiMsgBox"请将打印出的纸张反向装入纸槽中",vbOKOnly,"打印另一面"Forj=1ToInt(x/2)+1ActiveWindow.SelectedSheets.PrintOutFrom:=2*j,To:=2*jNextjEndSub输入完成后依次单击“文件”→“保存”菜单命令，并关闭VisualBasic编辑窗口返回Excel2003窗口，如图2008070504所示。图2008070504输入代码2．在工具栏添加“双面打印”按钮第1

5、步，在Excel2003窗口依次执行“工具”→“自定义”菜单命令，打开“自定义”对话框。在“命令”选项卡中的“类别”列表中选中“宏”选项，然后将“命令”列表中的“自定义按钮”选项拖曳到工具栏上的合适位置，如图2008070505所示。图2008070505拖动“自定义按钮”选项第2步，选中刚刚添加的自定义按钮，在“自定义对话框”中单击“更改所选内容”按钮。在打开的快捷菜单中编辑“命名”编辑框，为自定义按钮输入名称（如“双面打印”），并选中“总是用文字”选项，如图2008070506所示。图2008070506命名自定

6、义按钮第3步，保持“自定义”对话框的打开状态，然后右键单击工具栏上刚添加的“双面打印”按钮，在打开的快捷菜单中单击“指定宏”命令，如图2008070507所示。图2008070507单击“指定宏”命令第4步，打开“宏”对话框，选中事先编辑的宏，并单击“确定”按钮，如图2008070508所示。图2008070508“指定宏”对话框第5步，关闭“自定义”对话框返回到Excel2003窗口。3．双面打印Excel2003表格打开需要双面打印的Excel2003文件，在工具栏中单击“双面打印”按钮。Excel2003会先将

7、奇数页打印出来，然后打开“打开另一面”对话框，提示用户将纸张反向装入打印机的纸槽中。单击“确定”按钮即可将偶数页打印到另一面上，从而实现双面打印，如图2008070509所示。图2008070509更换纸张打印面