作者：绿色风
分类：
时间：2022-08-17
浏览：128
楼主
gvntw |
Q：在 Microsoft Word 中，你可以轻松设置双面打印，但遗憾的是 Microsoft Excel 却没有这个选项设置，如何在 Excel 中进行双面打印：
A：打印机支持的话，可以这样设置：文件---页面设置----选项---输出---打印顺序……，如果你拥有这种打印机的话，你就可以直接双面打印了，如果没有这种打印机也没关系，下面的宏帮你双面打印 Microsoft Excel 文件。
- Sub Print_双面()
- Dim pageTotal As Integer
- Dim jPage As Integer
- Dim OK
- pageTotal = Application.ExecuteExcel4Macro("get.document(50)")
- For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
- ActiveSheet.PrintOut from:=jPage, To:=jPage
- Next
- OK = MsgBox("请把纸张装入打印机，打印偶数页", vbOKCancel, "双面打印")
- If OK = vbOK Then
- For jPage = 2 To pageTotal Step 2
- ActiveSheet.PrintOut from:=jPage, To:=jPage
- Next
- End If
- End Sub
|
2楼
sandy |
这个，没学会，再研究研究吧！ |
3楼
小高 |
这个宏真的很深奥啊 |
4楼
rhr2008 |
能不能做到和打印选项中的任选打印的页数？ |
5楼
7786910 |
没学会 |
6楼
zishan |
先看看,研究一下
 |
7楼
weiguo6100 |
我的打印机有双面打印的功能，但是在一个工作簿中有100张表，每张表都有10以上不等的页数，现在设置双面打印需要一张一张工作表设置，最后打印时按打印整个工作簿。这样每张工作表都设置一次双面（长边翻转）非常麻烦，有没有一次设置的方法？ |
8楼
weiguo6100 |
版主啊，答案并非我所需要的 |
9楼
传递 |
我学会了
 给版主补个操作过程动画吧。方便更多学员了解（我以前没接触过，版主要是看到**作不当，请多多指教）
 |
10楼
335081548 |
谢谢分享 |
11楼
清新淡雅 |
哇塞，居然能这样！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一