VBA是Microsoft Office内置的编程语言，极大丰富了Office的内涵，今天来介绍下在Excel中如何用VBA设置双面打印。工具/原料moreMicrosoft Excel 2013Windows 7 旗舰版方法/步骤1/5分步阅读

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

2/5

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

3/5

输入代码：

Sub 鱼木混猪()For i = 1 To 20ActiveSheet.PrintOut from:=2 * i - 1, To:=2 * i - 1 打印奇数页Next iMsgBox 请将打印纸反装，以打印反面For i = 1 To 20ActiveSheet.PrintOut from:=2 * i, To:=2 * i 打印偶数页Next iEnd Sub代码作用是先打印奇数页，然后提醒换纸，再打印偶数页，如下图所示。

4/5

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

5/5

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

总结：1/1

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

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

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

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

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

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

注意事项

Tips：代码中的For i = 1 To 20，其中20是要打印的总页数，根据实际修改

关注以往和今后的经验文章，了解更多Office技巧，感谢点赞和关注

VBA双面打印自动双面打印