excel添加按钮Excel 2007 添加 双面打印 按钮

在excel2007设置双面打印的方法步骤(2)
excel双面打印步骤
1、首先打开excel表格，因为是实现双面打印的，所以要有两页的内容量。

2、然后执行“菜单——打印——打印预览”，来到预览页面，观察下打印版面。

excel双面打印的步骤图2
3、预览之后点击上方的“关闭”，回到excel表格中。

excel双面打印的步骤图3
4、然后执行“菜单——打印——打印”。

excel双面打印的步骤图4
5、这时会出现一个弹窗，然后在属性处，选择“手动双面打印”，如图
excel双面打印的步骤图5
6、设置好之后点击确定，这时候打印机就开始工作了，表格会显示打印的进度。

excel双面打印的步骤图6。

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

看了excel2007设置打印偶数页的方法。

手动实现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, 工作表 ] 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（单页）的背面，（不用手动把纸翻页）而选整个工作簿后打印出来的是单面（打印机设置的是双面打印）…………我试过的！选整个工作簿，设置双面打印，每个表中才执行双面打印。

非常感谢高手的热心帮忙，期望更好的答案补充回答：说实话，这个我还真没试过。

大家知道，在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 双面打印 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 编辑窗口返回。

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

停止录制
右键按钮，选择指定宏，指定刚才制作的
宏，即可实现功能
选择此宏，确定即可。

excel添加按钮的方法
在制作表个时候有些时候需要用到两者选择其一的功能，今天，店铺就说一下如何添加选择按钮。

Excel添加按钮设置的方法如下:
在图中看到的效果，就是已经添加选择按钮的excel表，那么如何制作，请向下看。

按钮是在excel表中的“开发工具”选项卡里，默认安装的EXCEL 里，这个选项是没有被选择的，小编之前出过一篇“excel添加开发工具到工具栏”大家可以看一下，添加以下“开发工具”选项卡。

添加完“开发工具”选项卡后，找到里面的“插入”选项。

这里就有要添加的选择按钮。

点击“插入”选项，弹出下拉窗口，这里找到一个圆圈里有个小点的图标，当鼠标放到上面时会显示说明。

点击后，这时excel光标变成十字的形状，这时我们在excel编辑框里面框选出一个区域后发现，选择框已经出现了。

将新创建的选择框重命名，后点击excel空白区域生效更改。

这时将制作的选择框放到正确的位置，与之前制作的选择框对齐，我们在选择一下，OK没有问题了。

注意事项：
选择框只能选取一个，勾选框可以多个选取。

excel添加按钮的方法在制作表个时候有些时候需要用到两者选择其一的功能，今天，店铺就说一下如何添加选择按钮。

Excel添加按钮设置的方法如下: 在图中看到的效果，就是已经添加选择按钮的excel 表，那么如何制作，请向下看。

按钮是在excel表中的开推荐度：点击下载文档文档为doc格式。

excel2007怎么设置双面打印
在excel2007中制作了报表，经常会使用双面打印的方式来打印，但是应该怎么设置呢?下面随店铺一起来看看吧。

excel2007设置双面打印的步骤
新建一个工作表。

为了能达到双面打印，至少要使打印页面的内容达到两页以上。

现设计为三页。

点击预览，可以看出来需要打印三页的。

在“页面设置”中，可以在页脚处设置页码，以便打印后排序。

保存后打开打印设置，其中有一项是“属性”，点开后可以设置打印机的相关参数。

在双面打印那一栏中选择“双面打印(手动)”。

即可放入纸张打印相应的内容。

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。