在Excel 2013中，VBA（Visual Basic for Applications）为用户提供了强大的自动化工具，可以轻松地执行一系列任务。其中一种常见的需求是打印指定的工作表，尤其是当我们只需要打印特定的两个工作表时。本文将详细介绍如何通过VBA代码实现这一功能。
1. 准备工作
在开始编写VBA代码之前，我们需要做一些准备工作。首先，确保您已经启用了开发工具选项卡。如果没有，可按照以下步骤进行操作：
步骤：
1. 打开Excel，点击“文件”选项卡。
2. 选择“选项”，然后点击“自定义功能区”。
3. 在右侧的“主选项卡”列表中，勾选“开发工具”选项。
一旦您启用了开发工具选项卡，您将能够访问VBA编辑器。在这里，您可以输入和运行自动化代码。
2. 打开VBA编辑器
接下来，我们需要打开VBA编辑器以创建新的模块并编写代码：
步骤：
1. 点击“开发工具”选项卡。
2. 在“代码”组中，选择“Visual Basic”选项。
3. 在VBA编辑器中，右键点击“本工作簿”，选择“插入” > “模块”。
此时，您会看到一个新的代码窗口，您可以在此处输入代码。
3. 编写打印工作表的VBA代码
下面的代码示例将帮助您打印指定的两个工作表。假设我们要打印名为“Sheet1”和“Sheet2”的工作表：
代码示例：
Sub PrintSpecificSheets()
' 设置要打印的工作表
Dim sheetsToPrint As Variant
sheetsToPrint = Array("Sheet1", "Sheet2")
' 打印工作表
Dim sheet As Variant
For Each sheet In sheetsToPrint
ThisWorkbook.Sheets(sheet).PrintOut
Next sheet
End Sub
代码分为几个部分：第一步是定义要打印的工作表的名称。这些名称必须与您Excel中工作表的真实名称一致。其次，通过For Each循环遍历工作表名称并依次打印。
4. 运行VBA代码
在完成代码编写之后，您需要运行代码以执行打印操作。步骤如下：
步骤：
1. 在VBA编辑器中，确保您将光标放置在刚刚编写的代码内。
2. 按下F5键或点击工具栏上的“运行”按钮。
3. Excel将执行打印命令，您应该看到指定的工作表开始打印。
5. 自定义打印设置
除了基本的打印命令，您还可以在代码中添加额外的参数，以自定义打印设置。例如，您可以指定打印的页数、打印份数等：
代码示例：
Sub PrintSpecificSheetsWithOptions()
Dim sheetsToPrint As Variant
sheetsToPrint = Array("Sheet1", "Sheet2")
Dim sheet As Variant
For Each sheet In sheetsToPrint
' 打印设置
ThisWorkbook.Sheets(sheet).PrintOut From:=1, To:=1, Copies:=1
Next sheet
End Sub
在上述代码中，您可以通过From和To参数来指定打印的页数，通过Copies来指定打印的份数。这为您的打印任务提供了更多的灵活性。
6. 注意事项
在使用VBA进行打印时，有几个注意事项需要牢记：
重要提示：
1. 确保工作表名称无误，否则会导致运行错误。
2. 如果您的打印机没有连接，系统会给出警告。
3. 考虑设置打印区域，以避免打印不必要的空白内容。
7. 总结
通过使用VBA，您可以轻松地实现打印指定的两个工作表。这不仅节省了时间，还提高了工作效率。本文提供的代码示例和步骤可以帮助您顺利完成打印任务。希望您能通过这些内容，充分利用Excel的VBA功能，实现更高效的工作目标。
