Word2003如何双面打印
第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窗口依次执行“工具”?“自定义”菜单命令,打开“自定义”对话框。在“命令”选项卡中的“类别”列
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
中选中“宏”选项,然后将“命令”列表中的“自定义按钮”选项拖曳到工具栏上的合适位置,如图2008070505所示。
图2008070505 拖动“自定义按钮”选项 第2步,选中刚刚添加的自定义按钮,在“自定义对话框”中单击“更改所选内容”按钮。在打开的
快捷菜单中编辑“命名”编辑框,为自定义按钮输入名称(如“双面打印”),并选中“总是用文字”选项,如图2008070506所示。 图2008070506 命名自定义按钮
第3步,保持“自定义”对话框的打开状态,然后右键单击工具栏上刚添加的“双面打印”按钮,在打开的快捷菜单中单击“指定宏”命令,如图2008070507所示。
图2008070507 单击“指定宏”命令 第4步,打开“指定宏”对话框,选中事先编辑的宏,并单击“确定”按钮,如图2008070508所示。 图2008070508 “指定宏”对话框 第5步,关闭“自定义”对话框返回到Excel2003窗口。 3(双面打印Excel2003
表格
关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载
打开需要双面打印的Excel2003文件,在工具栏中单击“双面打印”按钮。Excel2003会先将奇数页打印出来,然后打开“打开另一面”对话框,提示用户将纸张反向装入打印机的纸槽中。单击“确定”按钮即可将偶数页打印到另一面上,从而实现双面打印,如图2008070509所示。 图2008070509 更换纸张打印面
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