2023-12-25 09:29
admin这是打印奇数页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
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-
上一篇：返回栏目
这是打印奇数页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
300
300
299
299
299
298
298
298
298