编辑Excel宏命令双面打印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 更换纸张打印面

时间: 2024-08-31 01:44:28

编辑Excel宏命令双面打印Excel2003表格的相关文章

轻松为Excel 2007添加一个双面打印按钮

大家知道,在Word中可以将"奇数页"和"偶数页"分开打印,从而实现多页文档的"双面打印"效果.但是,在Excel中却没有这一功能.下面,我们就以Excel2007为例,为其添加一个具有"双面打印"功能的按钮. 一.展开"开发工具"选项卡 要在Excel中实现"双面打印",就要用到其内嵌的VBA功能,因此,需要先展开"开发工具"选项卡. 启动Excel2007,单击左

让Excel 2007实现双面打印的两种另类方法

如今提倡构建节约型社会,无纸化办公就符合这一要求,虽然真正意义上的无纸化办公难以实现,但要做到节约用纸却并不困难. Microsoft Office Word的双面打印功能就是一个很好的例子.然而跟Word不同的是, Excel从来就没有提供双面打印的功能,Excel 2007中也不例外,因此我们只有自己动手,才能让Excel 2007也可以双面打印. 一. 打印机设置有窍门 有些打印机只要安装了驱动程序,就可以在打印属性中找到双面打印选项,以Canon PIXMA iP1000为例(请先安装打

WPS 2007双面打印技巧:巧设装订线

随着家用电脑的普及程度越来越高,普通的喷墨打印机也走进了千家万户,由于普通喷墨打印机价格低廉,其功能也相对较少,与高档的极光打印机相比,典型的就是不具备自动双面打印功能.但是,家庭使用,单面不仅有点浪费纸张.有没有办法设置一下,让普通喷墨也能双面打印呢? 正是由于普通喷墨打印机自动双面打印功能的欠缺,大部分人又贪图一时方便,一页整洁的打印纸,只使用了单面,而另一面就无端的浪费了,并且人们对身边的这种浪费早已熟视无睹,这就有悖于国务 院倡导的建设节约型社会的精神了. 虽说普通喷墨打印机不具有自动双

excel2007实现双面打印的两种另类方法

如今提倡构建节约型社会,无纸化办公就符合这一要求,虽然真正意义上的无纸化办公难以实现,但要做到节约用纸却并不困难. Microsoft Office Word的双面打印功能就是一个很好的例子.然而跟Word不同的是, Excel从来就没有提供双面打印的功能,Excel 2007中也不例外,因此我们只有自己动手,才能让Excel 2007也可以双面打印. 一. 打印机设置有窍门 有些打印机只要安装了驱动程序,就可以在打印属性中找到双面打印选项,以Canon PIXMA iP1000为例(请先安装打

巧用Word配置书籍装订式双面打印

打印Word文档做资料的时分,为了节省纸张,经常要把A4纸一面打印两页内容,双面打印后,做成书籍.依照Word自带的双面打印功用,打印出来的页码会乱,一定不可以,所以我在经历一番实验糜费了几张A4纸后,终于都找到了真实可行的方法: 1.文件-打印-页码范围填:1,3,5,7,9,11,13,15(依此类推): 2.每页的版数:2版: 3.按纸张大小缩放:A4: 4.确定,打印完后依顺序把纸反过去(第1,3页的要放在最上面,下面顺次放好,要留意纸张方向要放对,不然的话打出来就会倒过去了!)放到送纸

excel如何设置打印区域

  excel如何设置打印区域 1.在桌面找到我们要打印的文件,例如我想要打印测评的这个文件,那么我就直接双击点击"测评"就可以了; 2.双击测评之后,就打开了测评的这张表格,如图所示; 3.首先我们需要选中这张表格,用鼠标将我们需要打印的内容选中,如图,我想打印这些人的测评,我就选中这些人的测评; 4.我们再点击最上面插入旁边的"页面布局",点击完页面布局之后,下面有一个打印区域,这个时候我们就点击"打印区域"; 5.点击完打印区域之后,打印区

excel怎么在打印时放大打印?

  excel怎么在打印时放大打印? 1.我们制作好了一张表格,在打印的时候发现,它只占据了纸张的一小部分,打印出来很不美观 2.点击excel左上角的打印按钮 3.弹出打印设置对话框 4.点击按纸型缩放里面的[A5]纸,因为A5纸是A4纸的一半,点击[确定] 5.打印出来就变大了,这个和打印机有关,有的打印机不支持缩放功能 不支持缩放功能打印机处理办法 1.选择所有行,单击右键选择[行高] 2.修改行高为:25 3.选择所有列,单击右键选择[列宽] 4.设置列宽为:15 5.全选,修改字体大小

Excel2003表格行列互换教程

  Excel2003表格行列互换教程 下面就让小编为大家介绍Excel2003表格行列互换教程,具体步骤如下: ①选中需要转换的数据区域,然后进行"复制"操作. ②选中保存数据的第一个单元格,然后单击菜单栏中"编辑"-"选择性粘贴",打开"选择性粘贴"对话框. ③打开"选择性粘贴"对话框中选中其中的"转置"选项,确定返回即可.

Excel2003表格怎么进行快速编号

  Excel2003表格怎么进行快速编号 ①打开Excel2003,将需要进行处理的表格打开,对员工进行分组处理.先在A2单元格输入:=ROUNDUP((ROW()-1)/3,0) ②回车,看到单元格显示1,第一个人当然是第一组,没得问题,继续. ③鼠标移动到该单元格右下角,出现+号,双击填充柄,剩下的人员就会自动进行分组,三人一组,编号自动加一,如下图所示. 公式说明 roundup(任意实数,保留多少位小数):向上进位取数. row():返回单元格的行号. 由于是在第二行开始设置公式,所有