VBA如何设置双面打印

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

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

3、输入代码：Sub 鱼木混猪()For i = 1 To 20ActiveSheet.PrintOut from:=2 * i - 1, To:=2 * i - 1 &#泌驾台佐39;打印奇数页Next iMsgBox "请将打印纸反装，以打印反面"For i = 1 To 20ActiveSheet.PrintOut from:=2 * i, To:=2 * i '打印偶数页Next iEnd Sub代码作用是先打印奇数页，然后提醒换纸，再打印偶数页，如下图所示。

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

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