excel表双面打印.doc

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