Excel双面打印的技巧

Excel双面打印的技巧

在Word中，可以通过打印设置，修改打印“奇数页”和“偶数页”来设置双面打印，那么在Excel中，如何实现Excel双面打印呢？如果打印机不支持双面打印，那么我们可以通过Excel VBA手动实现Excel双面打印。

首先Excel2007打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub DoubleFacePrint()On Error Resume NextDim x, i, j As Variantx = ExecuteExcel4Macro("Get.Document(50)")MsgBox "请将纸放入打印机，开始打印奇数页", vbOKOnlyFor i = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * i – 1, To:=2 * i – 1Next iMsgBox "请将纸放入打印机，开始打印偶数页", vbOKOnlyFor j = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * jNext jMsgBox "Excel双面打印完毕", vbOKOnlyEnd Sub

按F5运行键，出现“请将纸放入打印机，开始打印奇数页”提示时将纸张放入打印机，按“确定”按钮开始打印奇数页。出现“请将纸放入打印机，开始打印偶数页”提示时将纸张放入打印机，按“确定”按钮开始打印偶数页。这样就实现了Excel双面打印。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。