怎么将excel整个工作薄双面打印出来

2024-11-27 01:15:09
推荐回答(2个)
回答1:

如果你的打印机支持双面打印,直接文件,打印,整个工作簿,然后在打印机属性里选择双面打印就可以了。

如果不是,得用宏。同时按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 = 1 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
End Sub
在此界面直接按F5运行此宏,OK。
追问:
按这个宏设置后打印没有反应,出不了纸
回答:
我先改正一个错误,第二个For j = 1 To i Step 2应该为For j = 2 To i Step 2

你得确保启用宏(2003版在菜单的工具,宏,安全性设置,中;然后重新打开此文件,启用宏)
其它不应该有问题。
追问:
修改后还是没有反应,我用的是2007版,晌唤请问如何才能正确使用?
回答:
你粘贴一段如下代码:
sub xxxxx()
Msgbox "启用宏了吗"
end sub
运行此宏,如果出现“启用宏了吗”,说明已经启用宏;否则,如下操作:
点最左上角的“花”,右下角的“Excel选项",左边的”信宴埋凯任中心“,右边的”信任中心设置...“,左边的”宏设置“,右边的”禁止所有宏但有提示“选中(这句翻译的液氏不准确,应该是第2个)。
然后重新打开该文件,有提示,启用宏。
追问:
我的问题还是没有解决,换了电脑设置,但出现有打印行,打印机却打印不出来,都有按你所说的设置
回答:
你先打印一张,选择打印机。然后运行此宏。

回答2:

复制啊。。。。。。。。。。。。。。