肿么将excel整个工作薄双面打印出来-ZOL问答

4个回答默认排序

默认排序

按时间排序

没找到满意答案？去问秘塔AI搜索

取消复制问题

已采纳

你打印机要是支持双面打印，直接「文件→打印→整个工作簿」，再点「打印机属性」里勾上双面打印就行啦～
不支持？那就得上宏！
快捷键 `Alt+F11` 打开VBA编辑器 → 顶部点「插入」→「模块」→ 把下面代码粘进去：
vba
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 From:=j, To:=j
Next j
MsgBox 请把纸翻个面，点OK继续打偶数页～, vbOKOnly, Hi
For j = 2 To i Step 2
ThisWorkbook.PrintOut From:=j, To:=j
Next j
End Sub

粘完直接按 `F5` 运行！搞定～
?? 常见问题速答：
? 点了没反应？先确认宏开了没！
→ Excel 2007：左上角「Office按钮」→「Excel选项」→「信任中心」→「信任中心设置」→「宏设置」→ 选第二项（带提示那个）→ 关掉重开文件，弹窗点「启用宏」！
还不行？先试个小白测试宏：
vba
sub test1()
Msgbox 宏启用了没？
end sub

运行它，弹窗出来就说明宏OK；没弹？回去再检查上面步骤！
? 还是不出纸？别急——
? 先手动「打印一页」选好你的打印机！
? 再运行宏！（宏不会自动选打印机，得你先手动指定一次）
搞不定？评论区喊我，手把手帮你盯屏

取消评论