Ms access 将报告保存为pdf

以下代码附在单击报告的按钮上。我想用用户选择的名称保存报告

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.Show

---

运行时，会弹出“另存为”对话框，但不会保存文件。是否缺少一个步骤？

您还应该设置一个名为notCancel的布尔值，将其设置为.Show，然后使用If语句use.Execute，以下代码显示了这一点：

Sub SaveFile()
    Dim fd As FileDialog
    Dim notCancel As Boolean
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
        notCancel = .Show
        If notCancel Then
            .Execute
        End If
    End With
End Sub

---

您还应该调暗名为notCancel的布尔值，将其设置为.Show，然后使用If语句use.Execute，以下代码显示了这一点：

Sub SaveFile()
    Dim fd As FileDialog
    Dim notCancel As Boolean
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
        notCancel = .Show
        If notCancel Then
            .Execute
        End If
    End With
End Sub

---

接下来，您应该将报告导出为pdf格式。将行

fd.Show

替换为：

If fd.Show then 
    DoCmd.OutputTo acOutputReport, "ReportNameHere", "PDF Format (*.pdf)", fd.SelectedItems(1), True
End IF

最后一个参数True用于在导出后打开pdf。如果不需要，请删除。

---

注意：fd.SelectedItems（1）是用户选择的文件

接下来，您应该将报告导出为pdf格式。将行

fd.Show

替换为：

If fd.Show then 
    DoCmd.OutputTo acOutputReport, "ReportNameHere", "PDF Format (*.pdf)", fd.SelectedItems(1), True
End IF

最后一个参数True用于在导出后打开pdf。如果不需要，请删除。

---

注意：fd.SelectedItems（1）是用户选择的文件

您缺少接收文件名并将报告导出为pdf格式的步骤。您缺少接收文件名并将报告导出为pdf格式的步骤。这似乎是我所需要的。“此处报告名称”指access中报告的名称，而不是所需的文件名，对吗？是的，报告名称的字符串值。这看起来像我需要的。“此处报告名称”指access中报告的名称，而不是所需的文件名，对吗？是，报告名称的字符串值。