编辑Excel宏命令双面打印Excel2003表格
互联网 发布时间：2008-10-04 19:36:24 作者：佚名 
我要评论
我要评论在Word2003的“打印”对话框中可以方便地设置双面打印Word文档，但是在Excle2003中则没有双面打印的设置选项。用户可以通过在Excel2003中编辑宏命令实现双面打印Excel2003表格。
1．编辑Excel2003宏命令
在Excel2003中第一次使用宏功能时，需要添加“个人宏工作簿”（
在Word2003的“打印”对话框中可以方便地设置双面打印Word文档，但是在Excle2003中则没有双面打印的设置选项。用户可以通过在Excel2003中编辑宏命令实现双面打印Excel2003表格。
1．编辑Excel2003宏命令
在Excel2003中第一次使用宏功能时，需要添加“个人宏工作簿”（即PERNOSAL.XLS），然后再使用Visual Basic编辑器编辑双面打印的宏命令。操作步骤如下所述：
第1步，打开Excel2003，在Excel2003窗口中依次单击“工具”→“宏”→“录制新宏”菜单命令，打开“录制新宏”对话框。在“宏名”编辑框中输入任意名称，然后在“保存在”下拉菜单中选中“个人宏工作簿”选项，并单击“确定”按钮，如图2008070501所示。
图2008070501 选中“个人宏工作簿”选项
第2步，在打开的录制宏工具栏中单击“停止录制”按钮，Excel2003即可自动添加“个人宏工作簿”，如图2008070502所示。
图2008070502 单击“停止录制”按钮
第3步， 在Excel2003窗口中依次单击“工具”→“宏”→“Visual Basic编辑器”菜单命令，打开Visual Basic编辑器窗口。右键单击左侧“工程”窗格中的“VBAProject(PERNOSAL.XLS)”选项，依次选择“插入”→“模块”菜单命令插入模块1，如图2008070503所示。
图2008070503 选择“插入”→“模块”命令
第4步，双击“模块1”打开代码输入窗口，输入下面的代码：
Sub dy()
On Error Resume Next
x = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To Int(x / 2) 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
For j = 1 To Int(x / 2) 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
End Sub
输入完成后依次单击“文件”→“保存”菜单命令，并关闭Visual Basic编辑窗口返回Excel2003窗口，如图2008070504所示。
图2008070504 输入代码
2．在工具栏添加“双面打印”按钮
第1步，在Excel2003窗口依次执行“工具”→“自定义”菜单命令，打开“自定义”对话框。在“命令”选项卡中的“类别”列表中选中“宏”选项，然后将“命令”列表中的“自定义按钮”选项拖曳到工具栏上的合适位置，如图2008070505所示。
图2008070505 拖动“自定义按钮”选项
第2步，选中刚刚添加的自定义按钮，在“自定义对话框”中单击“更改所选内容”按钮。在打开的快捷菜单中编辑“命名”编辑框，为自定义按钮输入名称（如“双面打印”），并选中“总是用文字”选项，如图2008070506所示。
图2008070506 命名自定义按钮
第3步，保持“自定义”对话框的打开状态，然后右键单击工具栏上刚添加的“双面打印”按钮，在打开的快捷菜单中单击“指定宏”命令，如图2008070507所示。
图2008070507 单击“指定宏”命令
第4步，打开“指定宏”对话框，选中事先编辑的宏，并单击“确定”按钮，如图2008070508所示。
图2008070508 “指定宏”对话框
第5步，关闭“自定义”对话框返回到Excel2003窗口。
3．双面打印Excel2003表格
打开需要双面打印的Excel2003文件，在工具栏中单击“双面打印”按钮。Excel2003会先将奇数页打印出来，然后打开“打开另一面”对话框，提示用户将纸张反向装入打印机的纸槽中。单击“确定”按钮即可将偶数页打印到另一面上，从而实现双面打印，如图2008070509所示。
图2008070509 更换纸张打印面
图2008070501 选中“个人宏工作簿”选项
第2步，在打开的录制宏工具栏中单击“停止录制”按钮，Excel2003即可自动添加“个人宏工作簿”，如图2008070502所示。
图2008070502 单击“停止录制”按钮
第3步， 在Excel2003窗口中依次单击“工具”→“宏”→“Visual Basic编辑器”菜单命令，打开Visual Basic编辑器窗口。右键单击左侧“工程”窗格中的“VBAProject(PERNOSAL.XLS)”选项，依次选择“插入”→“模块”菜单命令插入模块1，如图2008070503所示。
图2008070503 选择“插入”→“模块”命令
第4步，双击“模块1”打开代码输入窗口，输入下面的代码：
Sub dy()
On Error Resume Next
x = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To Int(x / 2) 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
For j = 1 To Int(x / 2) 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
End Sub
输入完成后依次单击“文件”→“保存”菜单命令，并关闭Visual Basic编辑窗口返回Excel2003窗口，如图2008070504所示。
图2008070504 输入代码
2．在工具栏添加“双面打印”按钮
第1步，在Excel2003窗口依次执行“工具”→“自定义”菜单命令，打开“自定义”对话框。在“命令”选项卡中的“类别”列表中选中“宏”选项，然后将“命令”列表中的“自定义按钮”选项拖曳到工具栏上的合适位置，如图2008070505所示。
图2008070505 拖动“自定义按钮”选项
第2步，选中刚刚添加的自定义按钮，在“自定义对话框”中单击“更改所选内容”按钮。在打开的快捷菜单中编辑“命名”编辑框，为自定义按钮输入名称（如“双面打印”），并选中“总是用文字”选项，如图2008070506所示。
图2008070506 命名自定义按钮
第3步，保持“自定义”对话框的打开状态，然后右键单击工具栏上刚添加的“双面打印”按钮，在打开的快捷菜单中单击“指定宏”命令，如图2008070507所示。
图2008070507 单击“指定宏”命令
第4步，打开“指定宏”对话框，选中事先编辑的宏，并单击“确定”按钮，如图2008070508所示。
图2008070508 “指定宏”对话框
第5步，关闭“自定义”对话框返回到Excel2003窗口。
3．双面打印Excel2003表格
打开需要双面打印的Excel2003文件，在工具栏中单击“双面打印”按钮。Excel2003会先将奇数页打印出来，然后打开“打开另一面”对话框，提示用户将纸张反向装入打印机的纸槽中。单击“确定”按钮即可将偶数页打印到另一面上，从而实现双面打印，如图2008070509所示。
图2008070509 更换纸张打印面
相关文章
在编辑Word文档时，有时我们只需要导出其中的部分页面，而不是整个文档，下面将介绍如何在Word中导出部分页面2025-04-14问卷星怎么转换成word文档? 问卷星问卷调查导出成word的技巧
在日常工作中，我们经常需要将问卷星上的问卷内容导出为Word格式，以便整理和分析数据，以下是三种简单的操作方法2025-04-14word文档一整页怎么截屏? word文档截图截一张全的图片技巧
在Word文档中想将一整页截屏下来，可以通过使用键盘中的Print Screen键和Word自带的截屏功能等多种方法截图，详细如下2025-04-14word开发工具怎么调出来? word工具栏添加开发工具的教程
许多用户在使用Word时，可能会发现菜单栏中缺少了“开发者工具”这一重要选项，这无疑限制了Word的某些高级功能应用，详细请看下文介绍2025-04-14Word文本框中的数字和英文字母如何进行竖排? word文档排版技巧
用Word进行排版成为我们办公中的主要方式，偶尔我们也可能会让文字竖着排版，让文字竖着排版我们都知道怎么操作，但是如何让英文字母和数字也纵向显示呢？详细请看下文介绍2025-03-25word文本框怎么对齐? word多个文本框快速批量对齐的技巧
word中有很多文本框，排列很乱，想要将所有文本框对齐，该怎么操作呢？下面我们就来看看详细的教程2025-03-21word分栏后如何设置页码? Word同一页分栏后的文本分别设置页码技巧
在使用Word进行文档排版时，经常需要将文档分栏，并且希望每栏都有不同的页码,这种效果在Word默认的页码样式中并不存在，需要通过手动插入域来实现，以下是详细步骤2025-03-13word多级列表怎么修改编号? Word多级列表各级编号格式批量修改技巧
编辑Word长文档时，为了让文本之间具有层次性，编号的使用必不可少，那么，对于编号，你会使用了吗？详细如下2025-03-13- 你是否在设置多级列表时遇到了编号问题？今天来分享创建多级列表的常见问题，别担心，这里为你提供全面的解决方案2025-03-13
word文档怎么锁定排版? 轻松锁定你的精心布局防止排版错乱
在 Word 文档中锁定排版，防止他人随意更改格式，可尝试以下两种方法，轻松锁定你的精心布局，详细如下文所属2025-03-11
最新评论