HPM1136打印机奇偶页打印如何放纸张
用宏。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub dayin() Dim x, i As Integer x = ExecuteExcel4Macro("Get。 Document(50)") MsgBox "现在打印奇数页", vbOKOnly For i = 1 To Int(x / 2) 1 ActiveSheet。PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox "现在打印偶数页", vbOKOnly For i = 1 To Int(x /...全部
用宏。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Sub dayin() Dim x, i As Integer x = ExecuteExcel4Macro("Get。
Document(50)") MsgBox "现在打印奇数页", vbOKOnly For i = 1 To Int(x / 2) 1 ActiveSheet。PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox "现在打印偶数页", vbOKOnly For i = 1 To Int(x / 2) 1 ActiveWindow。
SelectedSheets。PrintOut From:=2 * i, To:=2 * i Next iEnd Sub在此界面下直接按F5运行此宏,解决问题。收起