你的意思是在打印过程中,使用宏吗,不明白
这是打印奇数页1、3Dim i As IntegerMsgBox "现在打印奇数页", vbOKOnlyFor i = 1 To 2ActiveSheet.PrintOut From:=Abs(2 * i) - 1, To:=Abs(2 * i) - 1Next i