用宏。同时按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运行此宏,解决问题。
5,打印完偶数页后怎么设置打印奇数页
word怎么先打印奇数页再打印偶数页? 30我想把他打成两面的。。已经打好文件了。不知道怎么先打基数面后打偶数面。在线等啊。。操作步骤:1、单击窗口左上角的office按钮,在弹出的菜单中选择打印----->打印,如图所示;2、弹出打印对话框,在打印处选择奇数页,单击确定按钮即可,如图所示;如图,虽然打印机不同,但也都在打印机里头设置:用宏。同时按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运行此宏,解决问题。
本文名称:打印奇偶页面设置方法,word中如何只打印偶数页
当前地址:http://csdahua.cn/article/epgooh.html