关于excel双面打印的新问题

[kkai]

上网搜到了如下vba代码:
Sub dy()
On Error Resume Next
x = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
End Sub

这段代码应该只能将当前活动的工作表双面打印
我想让整个工作簿(包含几个工作表)进行双面打印
代码怎么修改?
谢谢!

[success000]

帮顶

[opens555]

帮顶

[evilboy_huang]

在代码前加入一个工作表的循环，将各个工作表轮流设为活动工作表就可以了
Sub temp()


Dim k As Long
Dim h As Long
k = Worksheets.Count
For h = 1 To k
Worksheets(j).Select
On Error Resume Next
x = ExecuteExcel4Macro("Get.Document(50)")
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j

Next
End Sub