VBA如何设置双面打印

1、首先，打开要打印的Excel文件，查看有多少页需要打印，如下图所示。

2、按下Alt+F11，打开VBA编辑界面，左侧双击要打印的工作表，出现编辑区，如下图所示。

3、输入代码：

Sub 鱼木混猪()
For i = 1 To 20
ActiveSheet.PrintOut from:=2 * i - 1, To:=2 * i - 1 '打印奇数页
Next i
MsgBox "请将打印纸反装，以打印反面"
For i = 1 To 20
ActiveSheet.PrintOut from:=2 * i, To:=2 * i '打印偶数页
Next i
End Sub

4、光标放于代码内容，点击“运行子程序”，如下图所示。

5、这样，就会现将奇数页打印，然后提醒翻转纸，再打印偶数页，如下图所示。

1、1.打开Excel，查看打印页数；

2.Alt+F11，打开VBA编辑界面；

3.输入代码，核心代码：

For i = 1 To 20
ActiveSheet.PrintOut from:=2 * i , To:=2 * i
Next i

4.点击“运行子程序”；

5.就会先打印奇数页，提醒翻转纸，然后打印偶数页。