返回首页
当前位置: 主页 > Excel教程 > Excel2003教程 >

双面打印Excel2003表格的方法—宏命令

时间:2012-07-13 21:55来源:Office教程学习网 www.office68.com编辑:麦田守望者

在excle2003中则没有双面打印的设置选项。如何使excle表格也能实现双面打印呢?

我们可以通过在excel2003中编辑宏命令实现双面打印excel2003表格。

方法如下:

一.编辑excel2003宏命令

在excel2003中第一次使用宏功能时,需要添加“个人宏工作簿”(即pernosal.xls),然后再使用visual basic编辑器编辑双面打印的宏命令。操作步骤如下所述:

第1步,打开excel2003,在excel2003窗口中依次单击“工具”→“宏”→“录制新宏”菜单命令,打开“录制新宏”对话框。在“宏名”编辑框中输入任意名称,然后在“保存在”下拉菜单中选中“个人宏工作簿”选项,并单击“确定”按钮,如图一所示。

选中“个人宏工作簿”选项

图一 选中“个人宏工作簿”选项

第2步,在打开的录制宏工具栏中单击“停止录制”按钮,excel2003即可自动添加“个人宏工作簿”,如图二所示。

单击“停止录制”按钮

图二 单击“停止录制”按钮

 

第3步, 在excel2003窗口中依次单击“工具”→“宏”→“visual basic编辑器”菜单命令,打开visual basic编辑器窗口。右键单击左侧“工程”窗格中的“vbaproject(pernosal.xls)”选项,依次选择“插入”→“模块”菜单命令插入模块1,如图三所示。

选择“插入”→“模块”命令

图三 选择“插入”→“模块”命令

第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窗口,如图四所示。

输入代码

图四 输入代码

 

二.在工具栏添加“双面打印”按钮

第1步,在excel2003窗口依次执行“工具”→“自定义”菜单命令,打开“自定义”对话框。在“命令”选项卡中的“类别”列表中选中“宏”选项,然后将“命令”列表中的“自定义按钮”选项拖曳到工具栏上的合适位置,如图五所示。

拖动“自定义按钮”选项

图五 拖动“自定义按钮”选项

第2步,选中刚刚添加的自定义按钮,在“自定义对话框”中单击“更改所选内容”按钮。在打开的快捷菜单中编辑“命名”编辑框,为自定义按钮输入名称(如“双面打印”),并选中“总是用文字”选项,如图六所示。

命名自定义按钮

图六 命名自定义按钮

 

第3步,保持“自定义”对话框的打开状态,然后右键单击工具栏上刚添加的“双面打印”按钮,在打开的快捷菜单中单击“指定宏”命令,如图七所示。

单击“指定宏”命令

图七 单击“指定宏”命令

第4步,打开“宏”对话框,选中事先编辑的宏,并单击“确定”按钮,如图八所示。

“指定宏”对话框

图八 “指定宏”对话框

第5步,关闭“自定义”对话框返回到excel2003窗口。

 

三.双面打印excel2003表格

打开需要双面打印的excel2003文件,在工具栏中单击“双面打印”按钮。excel2003会先将奇数页打印出来,然后打开“打开另一面”对话框,提示用户将纸张反向装入打印机的纸槽中。单击“确定”按钮即可将偶数页打印到另一面上,从而实现双面打印,如图九所示。

更换纸张打印面

图九 更换纸张打印面

------分隔线----------------------------
标签(Tag):excel excel2007 excel2010 excel2003 excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
推荐内容
猜你感兴趣