1、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.HP
2、ageBreaks.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
3、在反面，下面依次有好多页，如何设置？（打印机能设置双面打）不好意思，是我没表达清楚。或者有什么办法，把那些表组合在一个表中？补充回答： 我第一句就回答你了:)再上个图吧：继续追问： 我要把 sheet2（单页）打印在 sheet1（单页）的背面，（不用手动把纸翻页）而选 整个工作簿 后打印出来的是单面（打印机设置的是双面打印） 我试过的！选整个工作簿，设置双面打印，每个表中才执行双面打印。非常感谢高手的热心帮忙，期望更好的答案补充回答： 说实话，这个我还真没试过。你说了，我才知道有这回事（但我还是不怎么相信，双面打印机有这么笨吗:)）。那么，请用我给你的宏吧。虽然我没试过，但编这样的代码我还是
4、很有信心的。成功不成功请都告诉我。 继续追问： 我遇到一个工作簿中，有上百个单页的表，想双面打印，我是把他们全打印出来，再选单面到双面复印的。 就想问问有什么简便的方法。 宏，没有用成功，打印机不打。不过，我想他的程序应该是：遇到背面空白的时候，就会提示把那张打印单面的纸，翻过来再放进打印纸中补充回答： 好的，我修改代码。并请你严格按照如下步骤操作：1. 确保默认打印机正确（即打开 Excel，点文件，打印，出来的打印界面打印机正确）2. 打开该文件，同时按 Alt和 F11进入宏界面，插入，菜单，粘贴代码：Sub test()Dim i, j As Integeri = ThisWorkbo
5、ok.Sheets.Count 共有 i个工作表For j = 1 To i Step 2 循环 1、3、5、.Sheets(j).PrintOut 打印奇数工作表Next jMsgBox “请将纸反放后点 OK，以打印偶数页“, vbOKOnly, “Hi“For j = 2 To i Step 2 循环 2、4、6、.Sheets(j).PrintOut 打印偶数工作表Next jEnd Sub3. 回到 Excel，点菜单的工具，宏，安全性设置，”中“。存盘退出。4. 重新打开该文件，提示你启用宏否，选择启用。然后点菜单的宏，运行test。 继续追问： 非常感谢啊，我会了。先把鼠标放在 sheet1,2右击，选择所有工作表（应该选整个工作簿也行的，可能我打印机又犯病了，有 2,3次设置双面，它就打单面），在双面打印那我还是采纳你的答案吧补充回答： 5555，冤枉我的答案了。
