excel怎么打印后自动另存为

Excel怎么打印后自动另存为：创建宏、使用VBA脚本、设置打印事件、保存文件

在Excel中实现打印后自动另存为的方法有很多，其中包括创建宏、使用VBA脚本、设置打印事件、保存文件等。下面我们详细介绍如何通过这些方法来实现这一目标。

一、创建宏

创建宏是实现打印后自动另存为的一个有效方法。宏是Excel中一种强大的工具，可以自动执行重复的任务。通过录制宏，我们可以记录下用户的操作，然后自动执行这些操作。

1. 打开Excel文档，点击“开发工具”选项卡。如果没有看到“开发工具”选项卡，可以在“文件”菜单中选择“选项”，然后在“自定义功能区”中勾选“开发工具”。
2. 点击“录制宏”，在弹出的对话框中输入宏的名称和描述，然后点击“确定”开始录制。
3. 执行打印操作，点击“文件”菜单中的“打印”选项，选择打印机和打印设置，然后点击“打印”按钮。
4. 保存文件，在执行完打印操作后，点击“文件”菜单中的“另存为”选项，选择保存位置和文件名，然后点击“保存”按钮。
5. 停止录制宏，点击“开发工具”选项卡中的“停止录制”按钮。

通过以上步骤，我们就可以创建一个宏，自动执行打印和另存为的操作。

二、使用VBA脚本

VBA（Visual Basic for Applications）是Excel中的一种编程语言，可以帮助我们实现更多的自动化操作。通过编写VBA脚本，我们可以在打印后自动另存为文件。

1. 打开Excel文档，点击“开发工具”选项卡。
2. 点击“Visual Basic”，打开VBA编辑器。
3. 在VBA编辑器中插入模块，点击“插入”菜单中的“模块”选项。
4. 编写VBA脚本，在模块中输入以下代码：

Sub PrintAndSave()

    ' 打印文档
    ActiveSheet.PrintOut
    ' 定义保存路径和文件名
    Dim savePath As String
    savePath = "C:UsersYourUsernameDocumentsYourFileName.xlsx"
    ' 保存文件
    ActiveWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
End Sub

5. 运行VBA脚本，点击“运行”按钮执行脚本。

通过以上步骤，我们就可以通过VBA脚本实现打印后自动另存为文件的操作。

三、设置打印事件

在Excel中，我们还可以通过设置打印事件来实现打印后自动另存为文件的操作。具体步骤如下：

1. 打开Excel文档，点击“开发工具”选项卡。
2. 点击“Visual Basic”，打开VBA编辑器。
3. 在VBA编辑器中找到ThisWorkbook对象，双击打开ThisWorkbook对象。
4. 编写VBA代码，在ThisWorkbook对象中输入以下代码：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    ' 打印文档
    ActiveSheet.PrintOut
    ' 定义保存路径和文件名
    Dim savePath As String
    savePath = "C:UsersYourUsernameDocumentsYourFileName.xlsx"
    ' 保存文件
    ActiveWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbook
    ' 取消默认打印操作
    Cancel = True
End Sub

5. 保存并关闭VBA编辑器。

通过以上步骤，我们就可以通过设置打印事件来实现打印后自动另存为文件的操作。

四、保存文件

在执行打印操作后，我们需要将文件保存到指定的位置。可以通过以下几种方式来实现：

1. 手动保存，在执行完打印操作后，手动点击“文件”菜单中的“另存为”选项，选择保存位置和文件名，然后点击“保存”按钮。
2. 使用宏保存，在录制宏时，添加保存文件的操作。
3. 使用VBA脚本保存，在VBA脚本中添加保存文件的代码。
4. 使用打印事件保存，在打印事件中添加保存文件的代码。

通过以上几种方式，我们可以在执行打印操作后，将文件保存到指定的位置。

总结

通过创建宏、使用VBA脚本、设置打印事件、保存文件等方法，我们可以在Excel中实现打印后自动另存为文件的操作。这些方法各有优缺点，可以根据具体情况选择合适的方法。希望本文对你有所帮助，如果你有更多的问题或需要进一步的帮助，可以参考相关的Excel和VBA文档，或者向专业人士咨询。

相关问答FAQs：

1. 如何在Excel中设置打印后自动另存为？
在Excel中，您可以通过以下步骤设置打印后自动另存为功能：

• 打开您要打印的Excel文件。
• 点击“文件”选项卡，然后选择“选项”。
• 在弹出的“Excel选项”对话框中，选择“保存”选项卡。
• 在“保存工作簿”部分，勾选“打印时保存副本”选项。
• 点击“确定”保存设置。
  这样，当您在打印Excel文件时，系统将自动保存一个副本，并保留原始文件的不变。

2. 如何在Excel中设置打印后的文件名和保存位置？
要设置打印后的文件名和保存位置，请按照以下步骤操作：

• 在Excel中，点击“文件”选项卡，然后选择“打印”。
• 在打印预览界面，点击“打印”按钮旁边的下拉箭头，选择“打印设置”。
• 在弹出的“打印设置”对话框中，选择“打印到文件”选项，并点击“确定”。
• 在弹出的“另存为”对话框中，选择您要保存的位置和文件名，并点击“保存”。
  这样，打印后的Excel文件将以您指定的文件名和保存位置保存。

3. 如何在Excel中打印并将文件另存为PDF格式？
若要在Excel中打印并将文件另存为PDF格式，请按照以下步骤进行操作：

• 打开您要打印的Excel文件。
• 点击“文件”选项卡，然后选择“打印”。
• 在打印预览界面，点击“打印”按钮旁边的下拉箭头，选择“打印设置”。
• 在弹出的“打印设置”对话框中，选择“Microsoft Print to PDF”作为打印机。
• 点击“确定”进行打印设置。
• 在弹出的“另存为”对话框中，选择您要保存的位置和文件名，并点击“保存”。
  这样，Excel文件将以PDF格式保存在您指定的位置。