编辑Excel宏命令双面打印Excel2003表格
- 格式:doc
- 大小:339.50 KB
- 文档页数:8
Excel(2003版)手动双面打印设置步骤全图解(使用宏)1.工具→宏→录制新宏2.弹出对话框3.更改宏名→确定4.点击停止录制宏5.工具→宏→Visual Basic编辑器,打开编辑器窗口6.插入→模块7.出现如图窗口8.窗口中输入如下内容Sub 手动双面打印()Dim Pages As LongDim myBottonNum As IntegerDim myPrompt1 As StringDim myPrompt2 As StringmyPrompt1 = "在打印时发生错误,请检查你的打印机设置"myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中,然后按下""确定"",继续打印"Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数On Error Resume NextIf (Pages = 0) Then '如果为零,说明没有可打印内容,退出程序MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48Exit SubEnd IfIf (Pages = 1) Then '判断是否只有一页,如果是,只打印第一页,然后退出ActiveSheet.PrintOutIf Err.Number = 1004 ThenMsgBox myPrompt1, 0 + 48 '提示用户发生打印错误End IfExit SubEnd IfFor i = 1 To Pages Step 2 '设置循环,打印奇数页ActiveSheet.PrintOut From:=i, To:=iIf Err.Number = 1004 ThenMsgBox myPrompt1, 0 + 48Exit SubEnd IfNext imyBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张,确认后继续打印If (myBottonNum = 1) ThenFor j = 2 To Pages Step 2 '打印偶数页ActiveSheet.PrintOut From:=j, To:=jNext jEnd IfEnd Sub如图9.按“Alt+Q”退出编辑器10.返回工作表窗口,工具→自定义11.宏→自定义按钮12.点击“自定义按钮”前的笑脸,拖曳至工具栏13.右击笑脸,改按钮名为“手动双面打印(&C)”14.点击“指定宏”15.对话框中选择宏→确定→关闭16.重新打开工作表,点击工具栏的按钮,即可手动双面打印(先按张打印出单数页,印完后的对话框中点击“确定”,然后按张打印偶数页)。
Excel中双面打印的方法Excel中双面打印的方法可以通过修改注册表的方法来解决这个问题:1、打开注册表编辑器方法:开始 -> 运行 -> 输入regedit -> 确定2、找到注册表子项HKEY_CURRENT_USERSoftwareMicrosoftOffice12.0ExcelSec urity3、在右侧空白处点击鼠标右键,选择“新建-> DWORD值(D)”,输入“ExtensionHardening”点击确定。
4、用鼠标右键点击ExtensionHardening,然后单击“修改(M)”,在数值数据中填写“0”即可确定。
5、关闭注册表编辑器,再次打开xls文件看看是不是提示是不是不见了?备注小知识:ExtensionHardening设置的值的数据设置:* 0:不检查文件扩展名和文件类型并绕过该函数的警告消息。
* 1:检查文件扩展名和文件类型。
如果它们不匹配会显示警告消息。
* 2:检查文件扩展名和文件类型。
如果它们不匹配不要打开该文件。
Excel中双面打印的方法技巧1.首先从网上下载安装一个小插件ExcelPrinter;2.打开Exce切换到“加载项”选项,你会发现比原来多出了“手动双面打印”和“打印当前页”这两项工具按钮;3.单击“手动双面打印”,再单击打印按钮进行打印。
Excel会先把1、3、5……等单页的内容发送到打印机打印,打印完单页后会弹出一个对话框提醒换一面打印,按对话框中提示,将出纸器中已打印好一面的纸掏出并将它们放回到送纸器中,然后按下“确定”,则可打印出双页内容。
方法一、Excel分别对AB列两列数据对比,比如A2=B2,就返回相同,否则返回不相同。
C2公式为:=IF(A2=B2,"相同","不同"),这样就可以实现excel两列对比。
不过细心的朋友会发现,A5和B5实质上有大小写区分的,因此使用这个公式不是完全准确。
excel2003启用宏方法
推荐文章
WPS启用宏的方法图解步骤热度: Excel表格怎么启用宏功能热度: excel怎么启用宏热度: 2003excel的宏在哪里热度: excel的宏怎么启用的热度:
Excel中经常需要启用宏功能,宏功能具体该如何启动呢?接下来是店铺为大家带来的excel2003启用宏方法,供大家参考。
excel2003启用宏方法:
启用宏步骤1:excel宏非常实用,可以大大的提高工作效率,首先打开excel表格。
启用宏步骤2:点击excel左上角的office图标,然后点击选择excel选项。
启用宏步骤3:在excel选项中选择信任中心,然后点击信任中心设置。
启用宏步骤4:在信任中心选择宏设置,excel默认禁用所有宏,并发出通知。
启用宏步骤5:我们可以点击选择启用所有宏然后确定就可以了。
EXCEL中双面打印?一个工作簿中多个工作表怎样设置,能打印出反面都无空白页?[ 标签:双面打印, excel, 工作表 ] Young 2010-10-09 10:49一个工作簿中多个工作表(例如:每个表都是一页)满意答案如果你的打印机支持双面打印,直接文件,打印,整个工作簿,然后在打印机属性里选择双面打印就可以了。
如果不是,得用宏。
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub test()Dim i, j As IntegerDim sh As WorksheetFor Each sh In ThisWorkbook.Sheetsi = i + (sh.HPageBreaks.Count + 1) * (sh.VPageBreaks.Count + 1)Next shFor j = 1 To i Step 2ThisWorkbook.PrintOut i, iNext jMsgBox "请将纸反放后点OK,以打印偶数页", vbOKOnly, "Hi"For j = 2 To i Step 2ThisWorkbook.PrintOut i, iNext jEnd Sub在此界面直接按F5运行此宏,OK。
即使每个工作表多余一页也可以解决。
继续追问:要把一个excel中的sheet1、sheet2……假设都是单面的,打印成:表1在正面,表2在反面,下面依次有好多页,如何设置?(打印机能设置双面打)不好意思,是我没表达清楚。
或者有什么办法,把那些表组合在一个表中?补充回答:我第一句就回答你了:)再上个图吧:继续追问:我要把sheet2(单页)打印在sheet1(单页)的背面,(不用手动把纸翻页)而选整个工作簿后打印出来的是单面(打印机设置的是双面打印)…………我试过的!选整个工作簿,设置双面打印,每个表中才执行双面打印。
非常感谢高手的热心帮忙,期望更好的答案补充回答:说实话,这个我还真没试过。
Excel中2003版进行设置宏按钮的操作方法
宏按钮的设置是基于我们己经编辑好一个宏了那么在我们使用时就需要设置一个可操作的宏按钮了,这样我们就可以方便操作重复的事情了,今天,店铺就教大家在Excel中2003版进行设置宏按钮的操作方法。
Excel中2003版进行设置宏按钮的操作步骤
1、本例子是以excel2003截图了,我们打开excel之后再点击“菜单栏--工具-->自定义”如下图所示。
2、然后就会弹出一个“自定义对话框”了如图所示。
Excel中2003版进行设置宏按钮的操作步骤图2
3、然后在自定的中我们找到命令选项卡,然后在类别中找到“宏”点击之后右边就会一个小表情图标了,如下图所示。
Excel中2003版进行设置宏按钮的操作步骤图3
4、在上图中,用鼠标按住笑脸表情,拖动到EXCEL工具栏中。
可以看到,笑脸表情按钮出现在工具栏中。
Excel中2003版进行设置宏按钮的操作步骤图4
5、现在的按钮还只是一个按钮了,我们要指定才行,现在在“工具-自定义“如图所示
Excel中2003版进行设置宏按钮的操作步骤图5
6、然后我们同样在自定义找到”命令“下面的宏,这一次是右键宏按钮,——》“指定宏”然后在弹出指定宏我们选择宏名就可以了。
Excel中2003版进行设置宏按钮的操作步骤图6
Excel中2003版进行设置宏按钮的操作步骤图7
好了到这里我们的设置就完成了,本教程可用于excel所有版本中哦。
Excel-VBA通过设置实现双面打印应用场景通过设置隔页打印和提醒,实现文件的双面打印知识要点1:ActiveWindow.View = xlPageBreakPreview 设置分页预览2:Application.ExecuteExcel4Macro('get.document(50)') 宏表函数计算页数3:Range.PrintOut 方法打印对象Sub 双面打印()On Error Resume NextIf VBA.IsEmpty(edRange) Then MsgBox '当前工作表为空!', 64, '出错': Exit SubDim Pages As Integer, Ji As Integer, Ou As IntegerActiveWindow.View = xlPageBreakPreview '进入分页预览,便于获取页数Pages = Application.ExecuteExcel4Macro('get.document(50)') '利用宏表函数计算页数For Ji = 1 To Int(Pages / 2) 1 '遍历每一页'sheets.printout(form,to,copies,priview,.....)'打印对象,from 打印开始页号,如果省略从起始位置开始,to 打印终止页号,如果省略,则打印至最后一页'copies打印份数,如果省略,只打印一份ActiveSheet.PrintOut form:=2 * Ji - 1, To:=2 * Ji - 1, copies:=1, collate:=True '打印奇数页Next JiMsgBox '请将打印纸反向装入打印机中,' & Chr(10) & '开始打印另一面!', 64, '友情提示'For Ou = 1 To Int(Pages / 2) 1 '在打印偶数页ActiveSheet.PrintOut from:=2 * Ou, To:=2 * Ou, copies:=1, collate:=TrueNext OuActiveWindow.View = xlNormalView '还原为常规视图End Sub。
EXCEL表格怎么设置打印页码
1、加入在页脚中插入页码,文件——页面设置——页眉/页脚——页脚——下拉框中选择就是。
2、如果二个工作表在同一工作薄中,同时选择二个工作表,_文件_页面设置_页眉页脚_页眉或页脚下选择"第1页第?页"后确定。
同时选中二个工作表,按打印按钮,二个表格页码会连续打印。
方法1:如果你要设置多个工作表,选择第一个表,按Shift键,选最后一个表,这样全选了需要的表,页面设置,页眉页脚,自定义页脚,在你要的位置(左中右)插入页码,确定,打印时按Shift选择需要打印的工作表,再打印就会顺序正确显示页码了。
方法2:第一个表直接页眉页脚中自定义页脚,插入页码,在第二个表中页面设置,页面(在页面设置第一选项卡“页面”)的左下脚有个起始页码,输入21。
页眉页脚,自定义页脚,选择你要的位置插入页码,确定,这样你的表二就从21页开始了。
如果有第三表,按第二表做法设置即可。
注意事项:方法二的做法在打印时,不需要全选要打印的工作表,想打哪个表就哪个表,页码不会错,方法一的做法在打印时,要选择你要打印的全部工作表,页码才不会错。
Excel表格双面打印可以通过打印机设置来实现。
excel2003实现双面打印的教程
Excel中经常需要双面打印的需求,具体该如何实现双面打印的效果呢?下面是店铺带来的关于excel2003实现双面打印的教程,希望阅读过后对你有所启发!
excel2003实现双面打印的教程:
设置双面打印步骤1:新建一个工作表。
为了能达到双面打印,至少要使打印页面的内容达到两页以上。
现设计为三页。
设置双面打印步骤2:点击预览,可以看出来需要打印三页的。
设置双面打印步骤3:在“页面设置”中,可以在页脚处设置页码,以便打印后排序。
设置双面打印步骤4:保存后打开打印设置,其中有一项是“属性”,点开后可以设置打印机的相关参数。
设置双面打印步骤5:在双面打印那一栏中选择“双面打印(手动)”。
即可放入纸张打印相应的内容。
注:双面打印的设置教程在各版本属通用教程。
excel双面打印宏第一:打开要进行双面打印的excel文件,按ALT+F11 进入VB编辑环境,在左侧工程窗口下右健,选择“插入->模块”,命名为模块1,双击该模块,在右侧窗口输入如下代码:Public StartPage As Integer, StepLong As Integer, Col As String, PageHeight As Single, OffSet As Integer变量说明:StartPage 表示要打印的起始页,比如可以是1或2,分别表示要打印奇数页或偶数页。
StepLong 表示是连续打印还是非连续打印,比如可以是1或2,分别表示连续打印或奇偶打印。
Col 表示excel中要打印到的哪一列,比如可以是D或H,分别表示从A列打印到D列或从A列打印到H列。
PageHeight 表示excel分页时每页的标准页高,其中纵向页高为669.75,横向页高为427.5。
OffSet 表示判定上一页的最后一行是否被excel自动分到下一页的依据,其中纵向依据为5,横向依据为14,即当:累计总行高- 标准页高> 5 (su - PageHeight > 5) 或累计总行高- 标准页高> 14 (su - PageHeight > 14) 时(其中su 表示累计总行高,这个变量将在后面说明),上一页的最后一行将被excel自动分到下一页中。
第二:在左侧工程窗口下右健,选择“插入->用户窗体”,在工程窗口下方属性窗口中为窗体命名为frmPrint ,在右侧窗体上绘制出两个命令按钮,分别命名为ood 和even 。
第三:在左侧工程窗口下右健,选择“插入->用户窗体”,在工程窗口下方属性窗口中为窗体命名为frmOrientation ,在右侧窗体上绘制出两个单选按钮和一个命令按钮,两个单选按钮分别命名为optPortrait 和optLandscape ,命令按钮命名为cmdOk 。
各版本Excel调整宏设置方式:1.Excel2003操作方法:(1)打开一个空白Excel,点击菜单【工具->宏->安全性】。
双击Excel2003图标打开宏安全性设置(2)建议选择“中”,然后点击“确定”按钮。
设置Excel安全级别(3)双击打开下载模板Excel,在弹出的“安全警告”窗口中选择“启用宏”。
打开下载模板启用宏2.Excel2007操作方法:(1)打开一个空白Excel。
双击Excel2007图标(2)单击Excel左上角office图标。
单击office图标(3)弹出如下图所示界面,单击“Excel选项”。
选择Excel选项(4)弹出如下图所示界面,单击左侧菜单导航栏“信任中心”,然后单击“信任中心设置”。
打开信任中心设置(5)弹出如下图所示界面,单击左侧菜单导航栏“宏设置”,然后选择“禁用所有宏,并发出通知(D)”,然后点击界面右下角的<确定>按钮。
(6)双击打开采集模板Excel。
(7)单击<选项>,如下图:点击<选项...>按钮(8)选择“启用此内容(E)”,点击<确定>。
启用宏3.Excel2010操作方法:(1)打开一个空白Excel文档。
双击Excel图标(2)单击Excel左上角“文件”按钮。
单击“文件”按钮(3)在弹出的菜单中点击“选项”按钮。
单击“选项”按钮(4)在弹出的对话框一次选择【信任中心—>信任中心设置】,如图所示:点击“信任中心设置”按钮(5)在弹出的的对话框依次选择【宏设置—>禁用所有宏,并发出通知】,点击“确定”按钮,退出该空白Excel。
(6)打开下载好的导入模板。
(7)出现如图所示提醒:启用宏点击“启用内容”按钮,完成Excel2010的宏设置。
4.Excel2013操作方法:(1)打开一个空白Excel文档。
双击Excel图标(2)单击Excel左上角“文件”按钮。
单击“文件”按钮(3)在弹出的菜单中点击“选项”按钮。
单击“选项”按钮(4)在弹出的对话框一次选择【信任中心—>信任中心设置】,如图所示:点击“信任中心设置”按钮(5)在弹出的的对话框依次选择【宏设置—>禁用所有宏,并发出通知】,点击“确定”按钮,退出该空白Excel。
Excel 2003 2007 启用宏方法Excel 2003/2007 启用宏的方法在使用 Microsoft Excel 进行数据处理和管理时,宏是一个非常实用的功能,可以帮助我们自动执行各种任务和操作。
然而,在 Excel 2003 和 Excel 2007 中,启用宏的方法略有不同。
本文将为您介绍启用宏的具体步骤以及解决常见问题。
1. Excel 2003 启用宏的方法:在 Excel 2003 中,启用宏的步骤如下:第一步:打开 Excel 2003 软件,点击菜单栏中的 "工具" (Tools) 选项;第二步:在 "工具" 菜单中,选择 "宏" (Macro) 选项,然后再选择"安全性" (Security);第三步:在 "安全性" 窗口中,选择 "宏安全性" (Macro Security) 选项卡;第四步:在 "宏安全性" 选项卡中,您可以根据您的需求选择不同的安全级别,包括 "低" (Low)、"中" (Medium)、"高" (High) 以及 "非常高" (Very High)。
建议在一般情况下选择 "中" 或者 "低" 的安全级别;第五步:选择完安全级别后,点击 "确定" (OK) 按钮保存设置即可。
2. Excel 2007 启用宏的方法:在 Excel 2007 中,启用宏的步骤如下:第一步:打开 Excel 2007 软件,点击 "Office 按钮" (Office Button);第二步:在弹出的菜单中,选择 "Excel 选项" (Excel Options);第三步:在 "Excel 选项" 窗口中,选择 "信任中心" (Trust Center);第四步:在 "信任中心" 中,点击 "信任中心设置" (Trust Center Settings) 按钮;第五步:在 "信任中心设置" 窗口中,选择 "宏设置" (Macro Settings);第六步:在 "宏设置" 中,您可以根据您的需求选择不同的安全级别,和 Excel 2003 类似,可以选择 "低"、"中"、"高" 或者 "非常高" 的安全级别;第七步:选择完安全级别后,点击 "确定" 按钮保存设置即可。
在Word2003的“打印”对话框中可以方便地设置双面打印Word文档,但是在Excle2003中则没有双面打印的设置选项。
用户可以通过在E xcel2003中编辑宏命令实现双面打印Excel2003表格。
步骤/方法1.11.编辑Excel2003宏命令在Excel2003中第一次使用宏功能时,需要添加“个人宏工作簿”(即PERNOSAL.XLS),然后再使用Visual Basic编辑器编辑双面打印的宏命令。
操作步骤如下所述:第1步,打开Excel2003,在Excel2003窗口中依次单击“工具”→“宏”→“录制新宏”菜单命令,打开“录制新宏”对话框。
在“宏名”编辑框中输入任意名称,然后在“保存在”下拉菜单中选中“个人宏工作簿”选项,并单击“确定”按钮。
第2步,在打开的录制宏工具栏中单击“停止录制”按钮,Exce l2003即可自动添加“个人宏工作簿”。
第3步,在Excel2003窗口中依次单击“工具”→“宏”→“V isual Basic编辑器”菜单命令,打开Visual Basic编辑器窗口。
右键单击左侧“工程”窗格中的“VBAProject(PERNOSAL.XL S)”选项,依次选择“插入”→“模块”菜单命令插入模块1。
第4步,双击“模块1”打开代码输入窗口,输入下面的代码:Sub dy()On Error Resume Nextx = ExecuteExcel4Macro("Get.Document(50)")For i = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:= 2 * i - 1Next iMsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"For j = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * jNext jEnd Sub输入完成后依次单击“文件”→“保存”菜单命令,并关闭Vis ual Basic编辑窗口返回Excel2003窗口。
excel使用宏的方法步骤详解
excel中,宏是一种工具,尤其是我们做报表的时候,会反复重复几个相同的操作,这样繁琐又麻烦。
当我们使用宏这种工具,就能一步到位,提高工作效率。
下面就跟店铺一起来看看吧。
excel使用宏的步骤
如果我们面对这样一份报表,要把背景颜色给去掉,也许你觉得会很简单,但是如果有一百份这样的报表呢?你肯定觉得好麻烦,在工作中遇到这种情况,就是我们使用宏这种工具的时候了。
首先我们点击“开发工具”,选择“录制新宏”。
宏名可以是你自己设定,也可以默认,选择“确定”。
我们把背景颜色去掉,完成操作后,点击“停止录制”。
这时候我们又出现了同样的报表,那该如何使用我们录制好的宏呢?很简单,我们再点击“开发工具”,选择“宏”,双击打开。
选择我们刚才录制好的宏,点击“运行”。
直接就一步到位完成了,很简单吧。
你可以试试噢,能很快的提高工作效率。
excel2003工具栏添加宏按钮的方法
在Excel中录入数据的时候经常也需要连同着宏一起使用,如果把按钮放在工具栏里,就可以大大的提高工作效率了。
具体该怎么添加呢?下面是由店铺分享的excel2003工具栏添加宏按钮的方法,以供大家阅读和学习。
excel2003工具栏添加宏按钮的方法:
添加宏按钮步骤1:在菜单栏上右击,在弹出的快捷菜单中选择“自定义”,在弹出的“自定义”对话框中选择“命令”选项卡。
添加宏按钮步骤2:在“类别”下的区域中选择“宏”,然后在右侧“命令”下方的区域中单击“自定义按钮”,这时光标变成一个带加号的箭头并单击按钮的形状,拖动鼠标到工具栏中的某个位置。
添加宏按钮步骤3:单击工具栏中的这个“自定义按钮”图标,弹出“宏”对话框。
选择“Sheet1.GoToSheet”,单击“确定”按钮。
添加宏按钮步骤4:以后,只要单击这个自定义命令按钮,就会选定指定的工作表。
添加宏按钮步骤5:如果要删除这个自定义按钮,按住Alt键的同时,将该自定义按钮拖至工作表区域中即可。
/edu/2012/04-18/25749.html 大家在运行一个程序时,有时往往为了需要会运行另外一个程序。
这时,你必须将当前程序 的窗口缩小或者是最小化,然后再通过点击桌面或者通过翻查文件夹找到想要运行的程序。
如果在 Word 中需要运行一些外部程序例如计算器、通讯簿或者是看图软件等等怎么办 呢?有没有一种简单的方法让他们一键就搞定。
答案是肯定的,那就是用宏直接在 Word 的工具条中添加快捷按钮。
方法如下: 启动 Word 软件后,执行“工具→宏→宏…”命令,调出“宏”对话框,在“宏名”文本框 中键入宏的名称, 以“ACDSee”为例, 然后单击“创建”按钮, Word 会自动进入 VisualBasic 编辑器(图 1)。
VB 代码窗口中已经自动加入了几行代码,在“SubACDSee()”和“EndSub”之间,加 入我们自己的代码:Shell "C:Program FilesACD SystemsACDSee10.0ACDSee10.exe", Shell 是 Word 宏中用来运行外部程序的命令, 空一格然后在西文双引号之间输 入你想要运行的程序的路径和程序名即可,然后关闭 VB 编辑器回到 Word 编辑窗口中(图 2)。
执行“工具→自定义”命令调出“自定义”对话框,单击“命令”标签,在左边“类别”中选择 “宏”, 然后将右边的“命令”框中一个名为“Normal.NewMacros.ACDSee”的命令拖放到工具栏适当的位置。
右键单击这个新的命令按钮,从右键菜单中选择“默认样式”即可。
你还可 通过“更改按钮图标”为此按钮更换图标。
之后你在 Word 中编辑文档时, 就可以通过单击这个按钮随时调用 ACDSee 看图片了。
其他程序快捷按钮的定制可依此类推。
在 Excel2003 工具栏添加一个宏按钮时间:2013-03-11 14:26 来源:excel123 点击:2352如果我们在 Excel 中经常执行某个 VBA 代码,可以在 Excel 2003 工具栏中添加一个宏命令 按钮, 以方便操作。
编辑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编辑器窗口。
右键单击左侧“工程”窗格中的“VBA Project(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 更换纸张打印面。