excel如何设置双面打印

excel如何设置双面打印

篇一：excel双面打印设置方法

excel双面打印

20XX/02/2112:03

编辑宏

第一步：启动excel20XX(其他版本请仿照操作)，执行“工具→宏→Visualbasic编辑器”命令，进入Visualbasic编辑状态。Visualbasic编辑状态

第二步：在右侧的“工程资源管理器”区域中，选中

“VbAproject(peRnosAL.xLs)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。

小提示

“peRnosAL.xLs”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

“录制新宏”对话框

第三步：双击“模块1”进入代码输入区域，将下述代码输入其中：

subdy()

onerrorResumenext

x=executeexcel4macro("get.Document(50)")

Fori=1ToInt(x/2)+1

Activewindow.selectedsheets.printoutFrom:=2*i-1,To:=2*i-1nexti msgbox"请将打印出的纸张反向装入纸槽中",vboKonly,"打印另一面"Forj=1ToInt(x/2)+1

Activewindow.selectedsheets.printoutFrom:=2*j,To:=2*j

nextj

endsub

第四步：输入完成后，关闭Visualbasic编辑窗口返回。

添加按钮

第一步:执行“工具→自定义”命令，打开“自定义”对话框。

“自定义”对话框

第二步:切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮。

第三步:单击“更改所选内容”按钮，在随后展开的快捷菜单中，在“命名”右侧的方框中输入按钮名称(如“双面打印”，并选中“总是用文字”选项。

第四步:在不关闭“自定义”对话框的情况下，右击工具栏上刚才添

加的“双面打印”按钮，在随后弹出的快捷菜单中，选择“指定宏”选项，打开“指定宏”对话框。

“指定宏”对话框

第五步:选中上面编辑的宏，确定退出，再关闭“自定义”对话框返回excel编辑状态。

双面打印

启动excel，打开需要双面打印的工作簿文件，单击“双面打印”按钮，系统先将奇数页打印出来，然后弹出提示框，将打印的纸张反向装入打印机的纸槽中，按下“确定”按钮，即可将偶数页打印到另一面上，达到双面打印的目的。

系统先将奇数页打印出来，然后弹出提示框

小提示

如果在打印过程中，出现夹纸现象，致使部分页面损坏，可以通过执行“文件→打印”命令，打开“打印”对话框，用手动的方法将少量损坏的页单独打印出来即可。

篇二：excel如何设置双面打印

excel如何设置双面打印

编辑宏

第一步：启动excel2000(其他版本请仿照操作)，执行“工具”à“宏”→“Visualbasic编辑器”命令，进入Visualbasic编辑状态。

第二步：在右侧的“工程资源管理器”区域中，选中“VbAproject(peRnosAL.xLs)”选项，执行“插入”→“模块”命令，

插入一个新模块（模块1）。

小提示：“peRnosAL.xLs”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框（如图2），输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

第三步：双击“模块1”进入代码输入区域，将下述代码输入其中：subdy()

onerrorResumenext

x=executeexcel4macro("get.Document(50)")

Fori=1ToInt(x/2)+1

Activewindow.selectedsheets.printoutFrom:=2*i-1,To:=2*i-1

nexti

msgbox"请将打印出的纸张反向装入纸槽中",vboKonly,"打印另一面" Forj=1ToInt(x/2)+1

Activewindow.selectedsheets.printoutFrom:=2*j,To:=2*j

nextj

endsub

第四步：输入完成后，关闭Visualbasic编辑窗口返回。

添加按钮

第一步：执行“工具→自定义”命令，打开“自定义”对话框(如图

利用PDF阅读器来实现excel2013奇偶数页打印

利用PDF阅读器来实现 Excel2013奇偶数页打印 Excel2013打印选项一直没有奇数页，偶数页分开打印这个功能，导致老式打印机没有办法实现双面打印，先打奇数页，再翻转过来打偶数页，当然去网上搜索相关VBA代码也是比较简单的一种实现方法，方法很多，总之只要能实现自己想要的结果，找适合自己的方法就最好，现在我就把我的方法简要说明一下 简单来说： 就是通过创建PDF阅读文档，在PDF阅读器里面来实现奇偶分别打印以实现双面打印的要求。懂得看到这里就可以了。。。。。。 复杂的来说： 第一步：下载安装软件“福昕阅读器“ 第二补：打开excel或者word就能在菜单栏看到“福昕阅读器“的菜单选项 第三部：打开已经制作好的需要双面打印的excel2013的文件 第四部：点击菜单栏上的福昕阅读器

第五步：点击”创建P DF“—保存到你想要存储的位置（我一般保存在桌面方便使用）-点击确认保存后就会出现正在发布的菜单，等发布完毕以后，我们到保存的位置（桌面）就会看到刚刚创建的一个新的PDF文档 第六步：打开这个新创建的PDF文档 第七部：在PDF阅读器中点击文件——打印 第八步：在菜单里面找到“奇数页打印，偶数页打印”的选项，我们先选择奇数页打印-然后点击确定打印，开始打印奇数页

第九步：打印完毕以后我们只需要把打印的文件一起拿出来掉个头放到打印里面去，然后选择仅偶数页面，勾选下面的逆序打印（先前打印的奇数页顺序是1、3、5、7、9……）所以我们勾选“逆序”以后打印的顺序就是（……，10、8、6、4、2）这些倒置过来的顺序来打印，就可以保证打印的正反两面顺序对应不出错误。 第十步：OK打印完成，整理下打印完毕的文件，装订。

excel中打印的设定

excel中打印的设定 2010-07-27 14:46:43| 分类：默认分类| 标签：|字号大中小订阅打印Excel中的单列表格如果只打印Excel中的一个单列表格，相信有的朋友一定会为此而挠头，由于在Excel的页面设置中没有“分栏”这一功能，所以对于长长的一列在打印时就不太好办了，不过，利用Excel的同门师兄word，就可以将要这一列的内容横向排 列、逐行显示，具体的做法如下： 打开表格，复制要打印的某一列，然后点击菜单中的“文件→新建...→工作簿”，然后将复制的某一列粘贴到该工作簿的第一列中，点击“文件”下的“保存”，在弹出的保存窗口中，将“保存类型”选择为“文本文件（制表符分隔）（*.txt）”，然后点击“保存”，不要管弹出提示，点“确定”或“是”就把这个工作簿保存为“book1.txt”了。 下面打开word，点击菜单中的“文件→打开...”，在弹出的打开窗口中，将文件类型改为“所有文件(*.*)”，然后选择打开刚才保存的“book1.txt”，同样“book1.txt”在word窗口内显示的也是长长的一列文字，如果你的word没有将“视图”下的“显示段落标记”前的对勾去掉，你就会发现，在每一行的后面都会有一个段落标记，只要将这个段落标记替换成几个空格，不就可以横向显示这些文字了！对，就是这个 意思！ 下面点击“编辑”下的“替换”，在弹出的“查找和替换”窗口中，点“高级”展开高级查找的菜单，点击其中的“特殊字符”，在弹出的菜单

中选择“段落标记”，这样在“查找内容”项内显示的就是“^p”，当然也可以直接“查找内容”中输入“^P”，然后在“替换为”项内输入几个空格，具体数量视要打印的内容而定，最后点击“全部替换”，等出现替换完成提示后，再看word中的原本单列显示的文本，是不是已变成逐行显示了，下面只要再对这些文字进行一下调整、修饰，加上标题，就可 以打印了。 用好Excel的双面打印 编辑宏 第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。 第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入 一个新模块(模块1)。 小提示

Excel(2003版)手动双面打印设置步骤全图解(使用宏)

Excel（2003版）手动双面打印设置步骤全图解（使用宏）1.工具→宏→录制新宏 2.弹出对话框

3.更改宏名→确定 4.点击停止录制宏 5.工具→宏→Visual Basic编辑器，打开编辑器窗口

6.插入→模块 7.出现如图窗口 8.窗口中输入如下内容 Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数 On Error Resume Next If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序

MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误 End If Exit Sub End If For i = 1 To Pages Step 2 '设置循环，打印奇数页 ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 Exit Sub End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印If (myBottonNum = 1) Then For j = 2 To Pages Step 2 '打印偶数页 ActiveSheet.PrintOut From:=j, To:=j Next j End If End Sub 如图

Excel宏设定双面打印

Excel宏设定双面打印 1、这个涉及到宏单击菜单工具→宏→录制新宏 2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行将宏保存在个人宏工作簙中 3、单击确定后，按停止录制宏按钮 4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码 Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数On Error Resume Next If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误End If Exit Sub End If For i = 1 To Pages Step 2 '设置循环，打印奇数页ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 Exit Sub End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印If (myBottonNum = 1) Then For j = 2 To Pages Step 2 '打印偶数页ActiveSheet.PrintOut From:=j, To:=j Next j End If End Sub 5、不用管他了``“按Alt+Q”返回到工作表窗口，单击菜单“工具”→“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”→“自定义按钮”。 6、拖动自定义按钮道任务栏上(也就是那个笑脸)，右键单击自定义按钮图标，在弹出的对话框中将“自定义按钮(&C)”更名为“手动双面打印(&C)”，然后再单击“指定宏” 7、在弹出的“指定宏”对话框中选择我们刚才创建的宏 8、所有工作已全部完成，随便打开任意工作簙单击刚创建的按钮试试，程序就会自动先打印所有奇数页，然后提示你取出纸张，确认后再打印所有偶数页，就像在使用Word的手动双面打印一样方便。

excel双面打印设置

电子表格Excel怎样设置双面打印(奇偶打印) 用好Excel的双面打印 从节约的角度出发，公司的表格都要求双面打印。但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！ 编辑宏 第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。 第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。 小提示 “PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。 第三步:双击“模块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编辑窗口返回。 添加按钮 第一步:执行“工具→自定义”命令，打开“自定义”对话框(如图3)。 第二步:切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮。 第三步:单击“更改所选内容”按钮，在随后展开的快捷菜单中，在“命名”右侧的方框中输入按钮名称(如“双面打印”，并选中“总是用文字”选项。 第四步:在不关闭“自定义”对话框的情况下，右击工具栏上刚才添加的“双面打印”按钮(参见图3)，在随后弹出的快捷菜单中，选择“指定宏”选项，打开“指定宏”对话框(如图4)。 第五步:选中上面编辑的宏，确定退出，再关闭“自定义”对话框返回Excel编辑状态

如何自己设置excel双面打印

编辑宏 第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。 第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。 小提示 “PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

第三步:双击“模块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编辑窗口返回。 添加按钮 第一步:执行“工具→自定义”命令，打开“自定义”对话框(如图3)。

两个表格怎么连续打印

竭诚为您提供优质文档/双击可除两个表格怎么连续打印 篇一：excel工作表之间连续双面打印 excel工作表之间连续双面打印 1、首先把需要双面打印（前面的封面目录之类的需要单面打印的可以不设置）的工作表都在打印设置里面设置成“双面打印”，打印——属性，自己根据需要选择“长边装订”或者是“短边装订”，再点击“确定”。 2、需要注意的是，这个界面确定以后，回到打印的主界面就直接点击“关闭”就可以了，不要选择“确定”否则就直接打印出来了。用这种方法把所有工作表都设置完。 3、再选择“打印”——选择“整个工作簿”（或者用shiFt 键选中所要打印的工作表，但“打印内容”里要选择“活动工作表”），就可以直接打印了。 ok 篇二：excel打印多个工作表,页面不连续 改用vba完成打印 按住alt依次按f11,i,m粘贴下面代码后按 f5subprintall()dimsasworksheetForeachsinactiveworkb

ook.worksheets s.printoutnext endsub subprint1()dimiasinteger dimstrasstring Fori=1toworksheets.count str=i这个数字加1表示列表起始行，为0从第1行开始。 Foreachshtinworksheets a=a+1这个数字如果为2则隔行列表。 myindexsheet.cells(a,"a").Value=https://www.wendangku.net/doc/7014455918.html,引号中字母代表列表所在的列(下行同)，现为b列。 sht.hyperlinks.addmyindexsheet.cells(a,"a"),address :="",subaddress:=https://www.wendangku.net/doc/7014455918.html,times代表循环次数，执行前把times赋值即可(不可小于1，不可大于 2147483647)Fori=1totimes call打印一个表 ifRange("完成标志")="打印完毕"thenexitFor nexti endsub

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

excel添加按钮:Excel 2007 添加 双面打印按钮 疯狂代码 https://www.wendangku.net/doc/7014455918.html,/ ?:http:/https://www.wendangku.net/doc/7014455918.html,/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”“添加”到右侧快速工具栏中

wps表格怎么双面打印

竭诚为您提供优质文档/双击可除wps表格怎么双面打印 篇一：excel表格双面打印步骤 wps版excel表格双面打印的步骤 第一步：打开excel表格，鼠标点击文件---《页面设置》 第二步：在【页面】中选择纵向方向，100%比例，a4纸，如下图： 第三步：在【页眉/页脚】的页脚设置成第1页，如图：第四步：在【工作表】中的顶端标题行选择需要打印内容的标题，如图： 页面设置好后，点击『确定』 第五步：在属性栏中选择《打印》，在打印页面中选择打印机的类型，在页码范围选择『页』，点击勾上【手动双面打印】，在【纸张型缩放】那里选择适合的纸张，点【确定】 在打印机打出第一张纸时，再把纸张的第二面翻过来，点击电脑上的【确定】进行第二次的打印。 篇二：wps双面打印技巧

随着家用电脑的普及程度越来越高，普通的喷墨打印机也走进了千家万户，由于普通喷墨打印机价格低廉，其功能也相对较少，与高档的极光打印机相比，典型的就是不具备自动(wps表格怎么双面打印)双面打印功能。但是，家庭使用， 单面不仅有点浪费纸张。有没有办法设置一下，让普通喷墨也能双面打印呢？ 正是由于普通喷墨打印机自动双面打印功能的欠缺，大部分人又贪图一时方便，一页整洁的打印纸，只使用了单面，而另一面就无端的浪费了，并且人们对身边的这种浪费早已熟视无睹，这就有悖于国务院倡导的建设节约型社会的精神了。 虽说普通喷墨打印机不具有自动双面打印功能，而wps 却为我们提供了手动双面打印的辅助功能，手动双面打印的目的，就是要最大限度的节约纸张而提高其利用率。而在wps 中手动双面打印时装订线的设置，又成了一个不是“问题”的问题，为了便于装订，奇数页面的装订线一般都要求在页面的左侧，而偶数页面的装订线却要求是在页面的右侧，而在wps的页面设置中，其装订线默认设置只能是在页面的左侧或上侧（如图01），这对于双面打印时的偶数页面的装订线设置造成了极大的不便，双面打印也就只能是采用加大页面边距的办法来解决了,这样虽说是节约了纸张,却失去了

WORD和EXCEL四种方法实现文档双面打印

excel表格怎样进行双面打印 1、这个涉及到宏 单击菜单工具→宏→录制新宏 2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中 3、单击确定后，按停止录制宏按钮 4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码 Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数 On Error Resume Next If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误 End If Exit Sub End If For i = 1 To Pages Step 2 '设置循环，打印奇数页 ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 Exit Sub End If Next i

电子表格“Excel奇偶页打印”设置办法

电子表格“Excel奇偶页打印”设置办法 启动Excel程序或打开一个Excel文件 单击菜单工具->宏->录制新宏 在弹出的录制新宏对话框中设定新的宏名“手动双面打印” 将宏保存在“个人宏工作簙”中 单击确定后，按停止录制宏按钮 按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中的VBAProject(PERSONAL.XLS)中找到模块1并双击，然后在右侧的窗口中输入或复制粘贴如下代码（两条虚线之间的VB代码）： ------------------------------------- Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数 On Error Resume Next

If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误 End If Exit Sub End If For i = 1 To Pages Step 2 '设置循环，打印奇数页ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 Exit Sub End If Next i

excel打印出来只有字没有表格

竭诚为您提供优质文档/双击可除excel打印出来只有字没有表格 篇一：如何打印excel表格 没打印机一样可以打印预览 在没有安装打印机的电脑上按下excel的打印预览按钮后，office20xx中的excel会却提示没有安装打印机，且无法打印预览。其实，只要单击开始;设置;打印机，然后双击添加打印机项目，再随便安装一个打印机的驱动程序。重启excel，就会发现已经可以打印预览了。 打印指定页面 一个由多页组成的个人简历表格，打印出来后，发现其中某一页(或某几页)有问题，修改后，没有必要全部都打印一遍!只要选择文件;打印(不能直接按常用工具栏上的打印按钮，否则是将整个工作表全部打印出来)，打开打印内容对话框，选中打印范围下面的页选项，并在后面的方框中输入需要打印的页面页码，再按下确定按钮即可。 首行重复打印 当工作表大于1页时，用户一般希望在打印时能在每一页中均能包含首行，你可以这样设置，打开页面设置对话框，

单击工作表选项卡，接下来只需在打印标题;顶端标题行文本框中输入：:类似的字符，或用鼠标将工作表中的首行拖过来也可以，以后就该表格首行就会打印在每页了。 表格也缩印 有时为工作需要，可能要求将多页内容调整为一页打印出来(在word中可以通过缩放技巧来实现)，可选择文件;页面设置，再在打开的页面设置对话框中单击页面标签，在缩放组下有一个调整为选项，只要在这里键入打印资产负债表的内容时所需要的页数(注意页宽和页高两个值必须一致) 就可以了。不过，此功能对于与纸张高、宽比例严重不协调的工作表来说，建议不要采用，否则会严重影响打印效果。 篇二：打印excel中的单列表格 打印excel中的单列表格 如果只打印excel中的一个单列表格，相信有的朋友一定会为此而挠头，由于在excel的页面设置中没有“分栏”这一功能，所以对于长长的一列在打印时就不太好办了，不过，利用excel的同门师兄word，就可以将要这一列的内容横向排列、逐行显示，具体的做法如下： 打开表格，复制要打印的某一列，然后点击菜单中的“文件→新建...→工作簿”，然后将复制的某一列粘贴到该工作簿的第一列中，点击“文件”下的“保存”，在弹出的保存窗口中，将“保存类型”选择为“文本文件（制表符分隔）

用好Excel的双面打印(高级技巧)

你身边的秘密：用好Excel的双面打印（高级技巧）！！！ 从节约的角度出发，公司的表格都要求双面打印。但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！ 编辑宏 第一步：启动Excel 2000(其他版本请仿照操作)，执行“工具”à“宏”→“Visual Basic 编辑器”命令，进入Visual Basic编辑状态。 第二步：在右侧的“工程资源管理器”区域中，选中 “VBAProject(PERNOSAL.XLS)”选项，执行“插入”→“模块”命令，插入一个新模块（模块1）。 小提示：“PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框（如图2），输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。 第三步：双击“模块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编辑窗口返回。 添加按钮

电子表格如何实现双面打印

电子表格如何实现双面打印 Excel本身不具有双面打印的功能，需要用到“宏”，才能实现。 1、录制“宏”。 单击菜单工具→宏→录制新宏。 2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中。 3、单击确定后，按停止录制宏按钮。 4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码： Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数 On Error Resume Next If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误 End If Exit Sub End If For i = 1 To Pages Step 2 '设置循环，打印奇数页 ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 Exit Sub End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后

如何编辑Excel宏命令双面打印Excel表格

在Word2003的“打印”对话框中可以方便地设置双面打印Word文档，但是在Excle2003中则没有双面打印的设置选项。用户可以通过在E xcel2003中编辑宏命令实现双面打印Excel2003表格。 步骤/方法 1.1 1．编辑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 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 输入完成后依次单击“文件”→“保存”菜单命令，并关闭Vis ual Basic编辑窗口返回Excel2003窗口。

excel手动双面打印设置方法

1、这个涉及到宏 单击菜单工具→宏→录制新宏 2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中 3、单击确定后，按停止录制宏按钮 4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码(虚线之间)： Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数 On Error Resume Next If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误 End If Exit Sub

End If For i = 1 To Pages Step 2 '设置循环，打印奇数页 ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 Exit Sub End If Next i myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张，确认后继续打印 If (myBottonNum = 1) Then For j = 2 To Pages Step 2 '打印偶数页 ActiveSheet.PrintOut From:=j, To:=j Next j End If End Sub 5、不用管他了``“按Alt+Q”返回到工作表窗口，单击菜单“工具”→“自定义”，在弹出的自定义对话框中选择“命令”选项卡，在命令选项卡中选择“宏”→“自定义按钮”。 6、拖动自定义按钮道任务栏上（也就是那个笑脸），右键单击自定义按钮图标，在弹出的对话框中将“自定义按钮(&C)”更名为“手动双面打印(&C)”，然后再单击“指定宏” 7、在弹出的“指定宏”对话框中选择我们刚才创建的宏 8、所有工作已全部完成，随便打开任意工作簙单击刚创建的按钮试试，程序就会自动先打印所有奇数页，然后提示你取出纸张，确认后再打印所有偶数页，就像在使用Word的手动双面打印一样方便。

excle进行双面打印的设置

excel表格怎样进行双面打印 悬赏分：5 |解决时间：2007-9-17 17:43 |提问者：shuai0452 同上 最佳答案 1、这个涉及到宏 单击菜单工具→宏→录制新宏 2、在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中 3、单击确定后，按停止录制宏按钮 4、按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中新建模块1，在我们刚才录制的手动双面打印宏命令中输入如下代码 Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 = "在打印时发生错误，请检查你的打印机设置" myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，然后按下""确定""，继续打印" Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数 On Error Resume Next If (Pages = 0) Then '如果为零，说明没有可打印内容，退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48 Exit Sub End If If (Pages = 1) Then '判断是否只有一页，如果是，只打印第一页，然后退出ActiveSheet.PrintOut If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误 End If Exit Sub End If For i = 1 To Pages Step 2 '设置循环，打印奇数页 ActiveSheet.PrintOut From:=i, To:=i If Err.Number = 1004 Then MsgBox myPrompt1, 0 + 48

教你如何实现Excel双面打印功能

用好Excel双面打印功能 从节约的角度出发，公司的表格都要求双面打印。但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！ 编辑宏 第一步：启动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 - 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编辑窗口返回。

【如何双面打印word文档】双面打印Word文档和Excel表的技巧

【如何双面打印word文档】双面打印Word文档和 Excel表的技巧 双面打印word文档和Excel表的技巧 双面打印word文档和Excel表的技巧 独步天下 快速双面打印是“高效和节约”这一现代办公原则在日常工作中的直接体现，也是对税务人员的基本要求。如何实现双面打印？双面打印有几种途径？哪种方法最佳？本文通过图解多种双面打印途径，并对比其优劣，供大家在日常工作中参考。 一、双面打印word文档的三种方法 方法1：通过“文件”－“打印”（可通过快捷键ctrl+P或ctrl+F2快速打开打印窗口，在打印窗口点任一菜单可返回页面视图），在打印窗口界面选择“单面打印”，点击其右侧下拉箭头，选择“手动双面打印”（见图1），尔后点“打印”按钮打印。 特点：通过这种方法打印完一面后，需要根据提示重新放入纸张，即将打印好的一面按从后至前重新排一下顺序后放入打印机。 方法2：通过“文件”－“打印” ()，在打印窗口界面选择“打 印所有页”，点击其右侧下拉箭头，选择“仅打印奇数页”（见图2），尔后点“打印”按钮打印，打印完奇数页后再选择“仅打印偶数

页”完成打印。 特点：通过这种方法打印完奇数页后，需要将打印好的一面按从后至前重新排一下顺序后放入打印机。 方法3：通过“文件”－“打印”，在打印窗口界面选择“打印机属性”（见图3）； 在打开的打印机属性窗口选择“完成”选项，尔后勾选“双 面打印”（见图4）。 特点：通过这种方法打印完一面后，根据提示直接将打印好一面的纸张反过来放入打印机打印。 二、双面打印Excel表的方法 双面打印Excel表只有一种方法，即上文的方法3。 三种方法相比，前两种方法在打印完一面后，需要手工调整已打印纸张顺序，而且两面打印完后，还需要从后至前重新调整一下纸张顺序，否则装订后的顺序会是“2－1－4－3－6－5…”；用第三种方法不需调整纸张顺序，打印完成后的纸张会自动排好顺序，这种方法在打印多份材料时效率十分明显，打印完后直接装订，省时省力（实际打印时应逐份核对一下页面内容和纸张序号，防止出现空白页面）。