这是打印奇数页1、3 Dim i As Integer MsgBox "现在打印奇数页", vbOKOnly For i = 1 To 2 ActiveSheet.PrintOut From:=Abs(2 * i) - 1, To:=Abs(2 * i) - 1 Next i


- 相关评论
- 我要评论
-
300
299
298
298