首页 > Excel专区 > Excel函数 >

Excel双面打印的技巧

Excel函数 2022-02-09 23:04:16

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

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

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


标签: 偶数奇数打印打印机excel函数

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.