excel宏怎么启用打印凭证

启用Excel宏打印凭证的方法：打开开发者选项、编写宏代码、保存为宏启用的工作簿、使用宏打印凭证。在这篇文章中，我们将详细介绍如何在Excel中启用宏并使用宏来打印凭证。我们将从基础设置开始，逐步深入到宏的编写和实际应用。具体步骤包括：打开开发者选项、编写宏代码、保存为宏启用的工作簿、使用宏打印凭证。

一、打开开发者选项

在Excel中，开发者选项是启用和使用宏的前提。开发者选项并不默认显示在Excel的功能区，因此需要手动启用。

1. 添加开发者选项

1. 打开Excel，点击左上角的“文件”菜单。
2. 在文件菜单中，选择“选项”。
3. 在弹出的Excel选项窗口中，选择左侧的“自定义功能区”。
4. 在右侧的主选项卡列表中，勾选“开发工具”。
5. 点击“确定”，开发者选项将显示在功能区中。

2. 了解开发者选项

开发者选项包含各种工具，用于创建和管理宏、ActiveX控件和其他高级功能。了解这些工具将帮助你更好地使用宏来自动化任务。

二、编写宏代码

宏是通过VBA（Visual Basic for Applications）编写的脚本，可以自动执行重复性任务。在这个部分，我们将编写一个简单的宏来打印凭证。

1. 打开VBA编辑器

1. 点击功能区中的“开发工具”选项卡。
2. 点击“Visual Basic”按钮，打开VBA编辑器。

2. 编写宏代码

1. 在VBA编辑器中，选择“插入”菜单，然后选择“模块”。
2. 在新模块中输入以下代码：

Sub 打印凭证()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("凭证")
    ' 设置打印区域
    ws.PageSetup.PrintArea = "$A$1:$D$20"
    ' 打印预览
    ws.PrintPreview
End Sub

这段代码将选择名为“凭证”的工作表，设置打印区域为A1到D20单元格，并显示打印预览。

3. 调试和运行宏

1. 在VBA编辑器中，按F5键运行宏，确保代码没有错误。
2. 如果没有错误，关闭VBA编辑器。

三、保存为宏启用的工作簿

为了确保宏能够在将来使用，你需要将Excel文件保存为宏启用的工作簿（.xlsm）。

1. 保存文件

1. 点击Excel窗口左上角的“文件”菜单。
2. 选择“另存为”，然后选择保存位置。
3. 在文件类型下拉菜单中，选择“Excel 启用宏的工作簿 (*.xlsm) ”。
4. 输入文件名，然后点击“保存”。

四、使用宏打印凭证

现在你已经编写了宏并保存了文件，可以使用宏来打印凭证。

1. 运行宏

1. 打开宏启用的工作簿。
2. 点击“开发工具”选项卡。
3. 点击“宏”按钮，打开宏对话框。
4. 选择“打印凭证”宏，然后点击“运行”。

2. 自动打印凭证

通过运行宏，Excel将自动设置打印区域并显示打印预览。你可以在打印预览中进行必要的调整，然后打印凭证。

五、优化和扩展宏

根据具体需求，你可以优化和扩展宏，以处理更复杂的打印任务。

1. 动态设置打印区域

如果凭证的大小不固定，可以编写代码动态设置打印区域。例如，以下代码将自动设置打印区域为包含数据的所有单元格：

Sub 动态打印凭证()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("凭证")
    ' 自动设置打印区域
    ws.PageSetup.PrintArea = ws.UsedRange.Address
    ' 打印预览
    ws.PrintPreview
End Sub

2. 添加用户输入

可以添加代码，允许用户输入凭证编号或其他信息。例如，以下代码将显示输入框，用户输入凭证编号后，宏将打印相应的凭证：

Sub 用户输入打印凭证()

    Dim ws As Worksheet
    Dim 凭证编号 As String
    Set ws = ThisWorkbook.Sheets("凭证")
    ' 显示输入框
    凭证编号 = InputBox("请输入凭证编号：")
    ' 查找并选择凭证
    With ws
        .Range("A1").AutoFilter Field:=1, Criteria1:=凭证编号
        .PageSetup.PrintArea = .UsedRange.Address
    End With
    ' 打印预览
    ws.PrintPreview
    ' 取消筛选
    ws.AutoFilterMode = False
End Sub

3. 自动发送电子邮件

如果需要将凭证发送给特定的电子邮件地址，可以添加代码，通过Outlook发送电子邮件：

Sub 发送电子邮件打印凭证()

    Dim ws As Worksheet
    Dim OutApp As Object
    Dim OutMail As Object
    Dim 凭证编号 As String
    Set ws = ThisWorkbook.Sheets("凭证")
    ' 显示输入框
    凭证编号 = InputBox("请输入凭证编号：")
    ' 查找并选择凭证
    With ws
        .Range("A1").AutoFilter Field:=1, Criteria1:=凭证编号
        .PageSetup.PrintArea = .UsedRange.Address
    End With
    ' 打印预览
    ws.PrintPreview
    ' 创建Outlook对象
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "example@example.com"
        .Subject = "凭证 " & 凭证编号
        .Body = "请查收附件中的凭证。"
        .Attachments.Add ThisWorkbook.FullName
        .Send
    End With
    ' 取消筛选
    ws.AutoFilterMode = False
    ' 清理对象
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

通过这些扩展功能，你可以根据具体需求，自定义和优化Excel宏，以实现更复杂的自动化任务。希望这篇文章能够帮助你更好地理解和使用Excel宏来打印凭证。

相关问答FAQs：

1. 如何在Excel中启用宏功能？

• 问题：我想在Excel中使用宏功能，但不知道如何启用它。请问该如何操作？

• 回答：要启用Excel中的宏功能，您可以按照以下步骤进行操作：

  1. 打开Excel软件，然后点击菜单栏上的“文件”选项。
  2. 在下拉菜单中，选择“选项”。
  3. 在弹出的“Excel选项”窗口中，点击左侧的“信任中心”选项。
  4. 在右侧的窗口中，点击“信任中心设置”按钮。
  5. 在“信任中心”窗口中，选择左侧的“宏设置”选项。
  6. 在右侧的窗口中，选择“启用所有宏”或“启用宏和活动内容”选项。
  7. 点击“确定”按钮保存设置。

2. 我想使用Excel宏来打印凭证，该怎么操作？

• 问题：我需要使用Excel宏来自动打印凭证，不知道该如何操作。请问有什么方法可以实现这个功能？

• 回答：若要使用Excel宏来自动打印凭证，您可以按照以下步骤进行操作：

  1. 首先，在Excel中编写一个宏，用于执行打印凭证的操作。可以使用VBA编程语言来编写宏。
  2. 在宏中，您可以使用“PrintOut”方法来打印指定的凭证。可以设置打印参数，如打印范围、打印份数等。
  3. 在需要打印凭证的地方，调用该宏即可自动打印凭证。

3. 如何在Excel中找到已经启用的宏？

• 问题：我在Excel中启用了宏功能，但我不知道如何找到已经启用的宏。请问有什么方法可以找到它们？

• 回答：要在Excel中找到已经启用的宏，您可以按照以下步骤进行操作：

  1. 首先，打开Excel软件并打开您的工作簿。
  2. 在菜单栏上选择“开发工具”选项卡。
  3. 在“开发工具”选项卡中，点击“宏”按钮。
  4. 在弹出的窗口中，您将看到一个列表显示了所有已经启用的宏。
  5. 选择您想要查看的宏，然后点击“编辑”按钮，即可查看和修改宏的代码。

注意：如果在Excel中找不到“开发工具”选项卡，请先启用它。可以按照第一个FAQ中的步骤来启用开发工具选项卡。