excel添加按钮Excel 2007 添加 双面打印 按钮
在excel2007设置双面打印的方法步骤(2)

在excel2007设置双面打印的方法步骤(2)
excel双面打印步骤
1、首先打开excel表格,因为是实现双面打印的,所以要有两页的内容量。
2、然后执行“菜单——打印——打印预览”,来到预览页面,观察下打印版面。
excel双面打印的步骤图2
3、预览之后点击上方的“关闭”,回到excel表格中。
excel双面打印的步骤图3
4、然后执行“菜单——打印——打印”。
excel双面打印的步骤图4
5、这时会出现一个弹窗,然后在属性处,选择“手动双面打印”,如图
excel双面打印的步骤图5
6、设置好之后点击确定,这时候打印机就开始工作了,表格会显示打印的进度。
excel双面打印的步骤图6。
excel2007设置打印偶数页的方法

本文整理于网络,仅供阅读参考
excel2007设置打印偶数页的方法
excel2007设置打印偶数页的方法:
设置打印偶数页步骤1:在电脑桌面找到2007版excel软件,并且左键单击打开excel界面
设置打印偶数页步骤2:保持打开的excel界面,然后按alt+f11,弹宏界面
设置打印偶数页步骤3:在宏界面工具栏,点击“插入”,弹出子目录,在子目录中选择“模块”
设置打印偶数页步骤4:点击模块后,会弹出编辑框,在编辑框内输入指令
设置打印偶数页步骤5:输完指令后,按f5键,即可出现“打印奇数页“,后再出现”打印偶数页“
设置打印偶数页步骤6:为方便下次工作不用再次输入指令,我们可以保存指令在word文档内,下次用的话,可以直接复制粘贴就可以快速的实行宏编辑了,这样节省打印时间。
看了excel2007设置打印偶数页的方法。
手动实现Excel的双面打印

手动实现Excel的双面打印1、这个涉及到宏单击菜单工具→宏→录制新宏2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行将宏保存在个人宏工作簙中3、单击确定后,按停止录制宏按钮4、按“Alt+F11”进入Microsoft Visual Basic编辑器。
在编辑器中新建模块1,在我们刚才录制的手动双面打印宏命令中输入如下代码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 Sub5、不用管他了``“按Alt+Q”返回到工作表窗口,单击菜单“工具”→“自定义”,在弹出的自定义对话框中选择“命令”选项卡,在命令选项卡中选择“宏”→“自定义按钮”。
excel表双面打印

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添加一个“双面打印”按钮

大家知道,在Word中可以将“奇数页”和“偶数页”分开打印,从而实现多页文档的“双面打印”效果。
但是,在Excel中却没有这一功能。
下面,我们就以Excel2007为例,为其添加一个具有“双面打印”功能的按钮。
一、展开“开发工具”选项卡要在Excel中实现“双面打印”,就要用到其内嵌的VBA功能,因此,需要先展开“开发工具”选项卡。
启动Excel2007,单击左上角的软件图标,在随后出现的下拉菜单中(如图1),选择“Excel选项”选项,打开“Excel选项”对话框(如图2)。
先在左侧选中“个性化设置”选项,然后在右侧“使用Excel时采用的首选项”下面选中“在功能区显示‘开发工具’选项卡”,确定返回。
二、生成“个人宏工作簿”为了让“双面打印”按钮对所有工作簿都有效,我们需要将其保存在“个人宏工作簿”中。
第一次使用“宏”这个功能时,需要先让软件生成一个隐藏的“个人宏工作簿”。
切换到“开发工具”选项卡中,单击其中的“录制宏”按钮,打开“录制新宏”对话框(如图3)。
输入一下宏名称(如“smdy”),按“保存在”右侧的下拉按钮,在随后出现的下拉列表中,选择“个人宏工作簿”选项,确定进入“宏”录制状态。
不需要进行任何操作,直接单击“开发工具”选项卡中的“停止录制”按钮,系统会自动生成一个隐藏的“个人宏工作簿”。
特别提醒:以后需要在“个人宏工作簿”中编辑宏时,就不需要再进入此步操作了。
三、编辑“双面打印”代码单击“开发工具”选项卡上的“Visual Basic”按钮,进入VBA编辑状态(如图4)。
特别提醒:按“Alt+F11”组合键,即可快速进入VBA编辑状态。
在左侧“工程资源管理器”中,展开“VBAProject(PERSONAL.XLSB)”选项(这就是“个人宏工作簿”),双击其中的“模块1”,然后用下述代码替换右侧编辑区中的原有代码:Sub smdy()On Error Resume Nextx = ExecuteExcel4Macro("get.document(50)")For i = 1 To Int(x / 2) + 1ExecuteExcel4Macro "PRINT(2," & 2 * i - 1 & "," & 2 * i - 1 &",1,,,,,,,,2,,,TRUE,,FALSE)"Next iMsgBox "请将打印纸反向装入打印机中", vbOKOnly, "打印另一面"For j = 1 To Int(x / 2) + 1ExecuteExcel4Macro "PRINT(2," & 2 * j & "," & 2 * j &",1,,,,,,,,2,,,TRUE,,FALSE)"Next jEnd Sub输入完成后,关闭VBA编辑窗口返回到Excel编辑状态。
excel如何设置双面打印

excel 如何设置双面打印 篇一:Excel 双面打印设置方法 Excel 双面打印 2008/02/21 12:03 编辑宏 第一步:启动 Excel 2003(其他版本请仿照操作),执行“工具→宏→Visual Basic 编辑器”命 令,进入 Visual Basic 编辑状态。
Visual Basic 编辑状态 第二步:在右侧的“工程资源管理器”区域中,选中 “VBAProject(PERNOSAL.XLS)”选项,执行“插入→模块”命令,插入一个新模块(模块 1)。
小提示 “PERNOSAL.XLS”叫做“个人宏工作簿”, 第一次使用宏功能时, 需要进入下述操作, 添加“个 人宏工作簿”:在 Excel 中,执行“工具→宏→ 录制新宏”命令,打开“录制新宏”对话框,输入一 个名称,然后选择将其“保存在”“个人宏工作簿”中,确定返回,随便做一下编辑操作,然后按 “停止录制” 工具栏上的“停止录制”按钮,系统即可自动添加“个人宏工作簿”。
“录制新宏”对话框 第三步:双击“模块 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 - 1Next 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 编辑窗口返回。
excel中按钮的添加方法

点击视图
右击空白处,点击自定义快
速访问工具栏
1、点击所有命令
4、添加到这里就可
以
2、找到控件
3、点击添加
5、点击确定
右键后,点击在功能区下方显示快速访
问工具栏
添加的工具栏在这里
点击控件-插入-按钮,即可插入按
钮
即可插入如图按钮
注释:按钮生成后,以我自己的理解不是,超链接生成的,而是宏,下面讲解如何设置宏,宏就相当于一个录像机,他会把你的操作都录下来,然后你点击按钮后,会按照你先前的动作,执行
1、点击视图
2、宏——录制宏
3、点击你想让按钮到的地方,譬如sheet3,中的某一个位置,点
击sheet3后,在点击sheet3中的某一位置,就能指到你点击的位
置
宏的名字,可以更改,改成自己想要的即可,不想改,点击确定,随后可以做你自己动作,
宏会记录下来,
点击sheet3 可以随意点击一
空白出,就能指
到sheet3
完成后,点击宏,点击停止录制宏。
停止录制
右键按钮,选择指定宏,指定刚才制作的
宏,即可实现功能
选择此宏,确定即可。
excel添加按钮的方法

excel添加按钮的方法
在制作表个时候有些时候需要用到两者选择其一的功能,今天,店铺就说一下如何添加选择按钮。
Excel添加按钮设置的方法如下:
在图中看到的效果,就是已经添加选择按钮的excel表,那么如何制作,请向下看。
按钮是在excel表中的“开发工具”选项卡里,默认安装的EXCEL 里,这个选项是没有被选择的,小编之前出过一篇“excel添加开发工具到工具栏”大家可以看一下,添加以下“开发工具”选项卡。
添加完“开发工具”选项卡后,找到里面的“插入”选项。
这里就有要添加的选择按钮。
点击“插入”选项,弹出下拉窗口,这里找到一个圆圈里有个小点的图标,当鼠标放到上面时会显示说明。
点击后,这时excel光标变成十字的形状,这时我们在excel编辑框里面框选出一个区域后发现,选择框已经出现了。
将新创建的选择框重命名,后点击excel空白区域生效更改。
这时将制作的选择框放到正确的位置,与之前制作的选择框对齐,我们在选择一下,OK没有问题了。
注意事项:
选择框只能选取一个,勾选框可以多个选取。
excel添加按钮的方法在制作表个时候有些时候需要用到两者选择其一的功能,今天,店铺就说一下如何添加选择按钮。
Excel添加按钮设置的方法如下: 在图中看到的效果,就是已经添加选择按钮的excel 表,那么如何制作,请向下看。
按钮是在excel表中的开推荐度:点击下载文档文档为doc格式。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
excel添加按钮:Excel 2007 添加 双面打印按钮
疯狂代码 / ĵ:http://Office/Article60972.html
大家知道在Word中可以将“奇数页”和“偶数页”分开打印从而实现多页文档“双面打印”效果但是在Excel中却没有这功能下面我们就以Excel2007为例为其添加个具有“双面打印”功能按钮
、展开“开发工具”选项卡
要在Excel中实现“双面打印”就要用到其内嵌VBA功能因此需要先展开“开发工具”选项卡
启动Excel2007单击左上角软件Software图标在随后出现下拉菜单中(如图1)选择“Excel选项”选项打开“Excel选项”对话框(如图2)
先在左侧选中“个性化设置”选项然后在右侧“使用Excel时采用首选项”下面选中“在功能区显示‘开发工具’选项卡”确定返回
2、生成“个人宏工作簿”
为了让“双面打印”按钮对所有工作簿都有效我们需要将其保存在“个人宏工作簿”中第次使用“宏”这个功能时需要先让软件Software生成个隐藏“个人宏工作簿”
切换到“开发工具”选项卡中单击其中“录制宏”按钮打开“录制新宏”对话框(如图3)输入下宏名称(如“smdy”)按“保存在”右侧下拉按钮在随后出现下拉列表中选择“个人宏工作簿”选项确定进入“宏”录制状态
不需要进行任何操作直接单击“开发工具”选项卡中“停止录制”按钮系统会自动生成个隐藏“个人宏工作簿”
特别提醒:以后需要在“个人宏工作簿”中编辑宏时就不需要再进入此步操作了
3、编辑“双面打印”代码
单击“开发工具”选项卡上“Visual Basic”按钮进入VBA编辑状态(如图4)
特别提醒:按“Alt+F11”组合键即可快速进入VBA编辑状态
在左侧“工程资源管理器”中展开“VBAProject(PERSONAL.XLSB)”选项(这就是“个人宏工作簿”)双击其中“模块1”然后用下述代码替换右侧编辑区中原有代码:
Sub smdy
On Error Resume Next
x = ExecuteExcel4Macro("get.document(50)")
For i = 1 To Int(x / 2) + 1
ExecuteExcel4Macro "PRINT(2," & 2 * i - 1 & "," & 2 * i - 1 & ",1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
MsgBox "请将打印纸反向装入打印机中", vbOKOnly, "打印另面"
For j = 1 To Int(x / 2) + 1
ExecuteExcel4Macro "PRINT(2," & 2 * j & "," & 2 * j & ",1,,,,,,,,2,,,TRUE,,FALSE)"
Next j
End Sub 输入完成后关闭VBA编辑窗口返回到Excel编辑状态
4、添加“双面打印”按钮
其实我们只要运行上面“smdy”宏就可以实现双面打印效果了但是为了操作上方便我们在“快速访问工具栏”上添加个“双面打印”按钮
右击左上角软件Software图标在随后出现下拉菜单中选择“自定义快速访问工具栏”选项打开“Excel选项”对话框并定位到“自定义”选项中(如图5)
单击“从下拉位置选择命令”右侧下拉按钮在随后出现下拉列表中选中“宏”选项将刚才编辑宏“PERSONAL.XLSB!smdy”“添加”到右侧快速工具栏中
单击其中“修改”按钮打开“修改按钮”对话框(如图6)选中个图标并输入“显示名称”(如“双面打印”)确定返回到“Excel选项”对话框中再“确定”退出
特别提醒:不修改“显示名称”项目内容并不影响宏正常运行和结果
5、实现“双面打印”
打开相应文档单击窗口上端“快速访问工具栏”(如图7)上“双面打印”按钮系统即刻开始打印“奇数页
”打开完成后弹出如图8所示提示框
将刚才打印出来文档纸张依次反向装入打印机中单击下图8中“确定”按钮即可将“偶数页”打印到纸张另面上实现“双面打印”的目
特别提醒:
①编辑了“个人宏工作簿”后退出Excel时会弹出个如图9所示对话框请定要单击其中“是(Y)”按钮保存上述宏代码
②反向装纸时定要先测试下装纸顺序和方向确定正确打印
③在打印另面时如果出现夹纸等意外情况造成部分页面打印请手动将页面重新打印下
④如果在Excel2003及以前版本中使用此宏只要修改两行代码就行了:
将“ExecuteExcel4Macro "PRINT(2," & 2 * i - 1 & "," & 2 * i - 1 & ",1,,,,,,,,2,,,TRUE,,FALSE)"”
修改为“ActiveWindow.SelectedSheets.PrOut From:=2 * i - 1, To:=2 * i - 1, Copies:=1, Collate:=True”
将“ExecuteExcel4Macro "PRINT(2," & 2 * j & "," & 2 * j & ",1,,,,,,,,2,,,TRUE,,FALSE)"”
修改为“ActiveWindow.SelectedSheets.PrOut From:=2 * j, To:=2 * j, Copies:=1, Collate:=True”
2009-2-3 23:03:19
疯狂代码 /。