Eva经常一次打印整个工作簿。当她这样做时，她将进行双面打印以节省纸张。但是，这有时意味着工作表的第一页将打印在上一个工作表的最后一页的背面。 Eva想知道是否有一种方法可以确保在双面打印整个工作簿时始终在新纸上开始打印工作表。

有手动方法可以解决此问题，而自动化方法则更多。手动方法涉及弄清楚哪些工作表需要打印奇数页，然后强制该工作表使用偶数页。一旦确定了这样的工作表，您要做的就是转到该工作表的末尾（恰好在最后一行的下方）并插入一个分页符。 （显示功能区的“页面布局”选项卡，然后单击“分页符”工具。然后，您可以选择“插入分页符”。）

自动方法涉及使用宏来打印工作簿，而不是使用常规的“打印”命令。本质上，该宏一个接一个地单独打印每个工作表。因此，如果您有5个工作表，则宏将它们作为5个单独的打印作业进行打印。

每个页面都将从新页面的开头开始。这是宏：

Public Sub PrintAllSheets()

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets         wks.PrintOut     Next     Set wks = Nothing End Sub

如前所述，此宏将打印工作簿中的所有工作表。如果要打印工作表的子集，则可以修改宏以仅打印执行宏时选择的那些工作表。

Sub PrintSomePages()

Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets         wks.PrintOut     Next     Set wks = Nothing End Sub

这些宏中的一个（或两个）都可以轻松地添加到快速访问工具栏中，以便您可以精确打印所需的内容（全部或部分）

只需单击一个按钮。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（1984）适用于Microsoft Excel 2007、2010、2013和2016。