excel中打印奇数页

[yxzyxz]

excel中打印奇数页的代码如下：

For i = 1 To Pages Step 2 '设置循环，打印奇数页
ActiveSheet.PrintOut From:=i, To:=i
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48
Exit Sub
End If
Next i

ActiveSheet.PrintOut是在循环里提交打印的，这样每一个循环提交一个打印，效率太低，如何把奇数页打印一次提交？？？

在office2003虚拟打印机中最为明显，如果打印整个文档，只提交一个打印文件，如果使用上面的代码打印奇数页，每页提交一个文件。

如何把奇数页打印一次提交？？？