如何编辑Excel宏命令双面打印Excel2003表格

如何编辑Excel宏命令双面打印Excel2003表格？

在Word2003的&lduo;打印&rduo;对话框中可以方便地设置双面打印Word文档，但是在Excle2003中则没有双面打印的设置选项。用户可以通过在Excel2003中编辑宏命令实现双面打印Excel2003表格。

1．编辑Excel2003宏命令
在Excel2003中*次使用宏功能时，需要添加&lduo;个人宏工作簿&rduo;（即），然后再使用Visual Basic编辑器编辑双面打印的宏命令。操作步骤如下所述:
第1步，打开Excel2003，在Excel2003窗口中依次单击&lduo;工具&rduo;→&lduo;宏&rduo;→&lduo;录制新宏&rduo;菜单命令，打开&lduo;录制新宏&rduo;对话框。在&lduo;宏名&rduo;编辑框中输入任意名称，然后在&lduo;保存在&rduo;下拉菜单中选中&lduo;个人宏工作簿&rduo;选项，并单击&lduo;确定&rduo;按钮。

第2步，在打开的录制宏工具栏中单击&lduo;停止录制&rduo;按钮，Excel2003即可自动添加&lduo;个人宏工作簿&rduo;。

第3步， 在Excel2003窗口中依次单击&lduo;工具&rduo;→&lduo;宏&rduo;→&lduo;Visual Basic编辑器&rduo;菜单命令，打开Visual Basic编辑器窗口。右键单击左侧&lduo;工程&rduo;窗格中的&lduo;VBAProject()&rduo;选项，依次选择&lduo;插入&rduo;→&lduo;模块&rduo;菜单命令插入模块1。

第4步，双击&lduo;模块1&rduo;打开代码输入窗口，输入下面的代码:
Sub dy()
On Error Resume Next
x = ExecuteExcel4Macro(&uot;(50)&uot;)
For i = 1 To Int(x / 2) + 1
From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox &uot;请将打印出的纸张反向装入纸槽中&uot;, vbOKOnly, &uot;打印另一面&uot;
For j = 1 To Int(x / 2) + 1
From:=2 * j, To:=2 * j
Next j
End Sub
输入完成后依次单击&lduo;文件&rduo;→&lduo;保存&rduo;菜单命令，并关闭Visual Basic编辑窗口返回Excel2003窗口。

2．在工具栏添加&lduo;双面打印&rduo;按钮
第1步，在Excel2003窗口依次执行&lduo;工具&rduo;→&lduo;自定义&rduo;菜单命令，打开&lduo;自定义&rduo;对话框。在&lduo;命令&rduo;选项卡中的&lduo;类别&rduo;列表中选中&lduo;宏&rduo;选项，然后将&lduo;命令&rduo;列表中的&lduo;自定义按钮&rduo;选项拖曳到工具栏上的合适位置。

第2步，选中刚刚添加的自定义按钮，在&lduo;自定义对话框&rduo;中单击&lduo;更改所选内容&rduo;按钮。在打开的快捷菜单中编辑&lduo;命名&rduo;编辑框，为自定义按钮输入名称（如&lduo;双面打印&rduo;），并选中&lduo;总是用文字&rduo;选项。

第3步，保持&lduo;自定义&rduo;对话框的打开状态，然后右键单击工具栏上刚添加的&lduo;双面打印&rduo;按钮，在打开的快捷菜单中单击&lduo;指定宏&rduo;命令。
第4步，打开&lduo;宏&rduo;对话框，选中事先编辑的宏，并单击&lduo;确定&rduo;按钮，如图所示。

3．双面打印Excel2003表格
打开需要双面打印的Excel2003文件，在工具栏中单击&lduo;双面打印&rduo;按钮。Excel2003会先将奇数页打印出来，然后打开&lduo;打开另一面&rduo;对话框，提示用户将纸张反向装入打印机的纸槽中。单击&lduo;确定&rduo;按钮即可将偶数页打印到另一面上，从而实现双面打印。