EXCEL文档打印设置

余方方

Sub Excel双面打印()
    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 "放好纸回车继续打印另一面"
    For j = 1 To Int(x / 2) + 1
        ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
    Next j
End Sub