excel表双面打印

EXCELEXCEL 中双面打印 一个工作簿中多个工作表怎样设置 能打印出反面都无空中双面打印 一个工作簿中多个工作表怎样设置 能打印出反面都无空 白页 白页 标签 双面打印 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 右击 选择所有工