excel表双面打印.doc

EXCEL中双面打印？一个工作簿中多个工作表怎样设置，能打印出反面都无空白页？
[ 标签：双面打印, excel, 工作表 ] Young 2010-10-09 10:49
一个工作簿中多个工作表(例如：每个表都是一页)
满意答案
如果你的打印机支持双面打印，直接文件，打印，整个工作簿，然后在打印机属性里选择双面打印就可以了。

如果不是，得用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i, j As Integer
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
i = i + (sh.HPageBreaks.Count + 1) * (sh.VPageBreaks.Count + 1)
Next sh
For j = 1 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
MsgBox "请将纸反放后点OK，以打印偶数页", vbOKOnly, "Hi"
For j = 2 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
End Sub
在此界面直接按F5运行此宏，OK。

即使每个工作表多余一页也可以解决。
继续追问：
要把一个excel中的sheet1、sheet2……假设都是单面的，打印成：表1在正面，表2在反面，下面依次有好多页，如何设置？（打印机能设置双面打）
   不好意思，是我没表达清楚。
   或者有什么办法，把那些表组合在一个表中？
补充回答： 我第一句就回答你了:)
再上个图吧：

继续追问：
我要把sheet2（单页）打印在sheet1（单页）的背面，（不用手动把纸翻页）    而选 整个工作簿 后打印出来的是单面（打印机设置的是双面打印）……                 ……我试过的！
   选整个工作簿，设置双面打印，每个表中才执行双面打印。

              非常感谢高手的热心帮忙，期望更好的答案
补充回答： 说实话，这个我还真没试过。你说了，我才知道有这回事（但我还是不怎么相信，双面打印机有这么笨吗:)）。

那么，请用我给你的宏吧。虽然我没试过，但编这样的代码我还是很有信心的。成功不成功请都告诉我。
继续追问：
       我遇到一个工作簿中，有上百个单页的表，想双面打印，我是把他们全打印出来，再选单面到双面复印的。   就想问问有什么简便的方法。   宏，没有用成功，打印机不打。不过，我想他的程序应该是：遇到背面空白的时候，就会提示把那张打印单面的纸，翻过来再放进打印纸中……
补充回答： 好的，我修改代码。并请你严格按照如下步骤操作：
1. 确保默认打印机正确（即打开Excel，点文件，打印，出来的打印界面打印机正确）
2. 打开该文件，同时按Alt和F11进入宏界面，插入，菜单，粘贴代码：
Sub test()
Dim i, j As Integer
i = ThisWorkbook.Sheets.Count   '共有i个工作表
For j = 1 To i Step 2       '循环1、3、5、...
Sheets(j).PrintOut          '打印奇数工作表
Next j
MsgBox "请将纸反放后点OK，以打印偶数页", vbOKOnly, "Hi"
For j = 2 To i Step 2       '循环2、4、6、...
Sheets(j).PrintOut          '打印偶数工作表
Next j
End Sub

3. 回到Excel，点菜单的工具，宏，安全性设置，”中“。存盘退出。

4. 重新打开该文件，提示你启用宏否，选择启用。然后点菜单的宏，运行test。
继续追问：
       非常感谢啊，我会了。先把鼠标放在sheet1,2右击，选择所有工作表（应该选整个工作簿也行的，可能我打印机又犯病了，有2,3次设置双面，它就打单面），在双面打印……
      那我还是采纳你的答案吧……
补充回答： 5555，冤枉我的答案了。