关于excel如何设置打印奇偶页和份数的问题，请高手指教？

于磊

请问各位，模块的函数设置完成打印奇偶页后，如何设置打印份数，由于打印份数多，不可能一份一份的打印，下面的函数，要如何修改才能设置打印的份数？谢谢

Sub dayin()

   Dim x, i As Integer

    x= ExecuteExcel4Macro("Get.Document(50)")

    MsgBox "现在打印偶数页", vbOKOnly

   For i = 1 To Int(x / 2) + 1

ActiveWindow.SelectedSheets.PrintOutFrom:=2 * i, To:=2 * i

Next i

MsgBox "现在打印奇数页", vbOKOnly

   For i = 1 To Int(x / 2) + 1

   ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1

    Nexti

End Sub

322344

ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=5, Collate:=True    '打印第i页5份