如何将访问报告保存为带有变量名称的 pdf 并让用户选择位置？-解网

问：

我想将访问报告保存为具有特定名称的 pdf（从表单中获取），但用户仍然可以选择保存它的位置。

我可以使用报告的标准名称保存报告，我可以使用表单的特定名称保存报告，但是代码中不再有“文件名”一词，并且没有弹出窗口可以保存从我尝试将字符串与单词“文件名”组合在一起的那一刻起，我认为访问会做一些事情，但我无法读取什么，因为它会很快消失并且无法在任何地方找到我的文件。

我尝试的最后一个男女同校是这个，我想我尝试了所有组合，但我找不到它请帮忙：

Private Sub KnPdoductieopdrachtPDF_Click()

Dim strReportName As String
Dim strPathName As String
Dim Locname As String

strReportName = "Productieopdracht" & [Taaknummer] & ".pdf"
strPathName = Filename
Locname = strPathName & strReportName

DoCmd.OutputTo acOutputReport, "Productieopdracht R", acFormatPDF, Locname, False, "", , acExportQualityPrint


End Sub

MS-Access PDF 报告文件位置

' Open the file dialogue for the user to select a folder.
' Returns the folder name chosen or an empty string if the user cancelled.
'
' 2023-03-31. Gustav Brock, Cactus Data ApS, CPH.
'
Public Function SelectFolderName( _
    Optional ByVal InitialFolderName As String, _
    Optional ByVal Title As String) _
    As String
    
    Const DefaultTitle      As String = "Select folder"
    
    Dim FileDialog          As FileDialog
    
    Dim FolderName          As String

    Set FileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    If Trim(Title) = "" Then
        Title = DefaultTitle
    End If
    
    FileDialog.Title = Title
    FileDialog.InitialFileName = InitialFolderName
    FileDialog.AllowMultiSelect = False
    FileDialog.Filters.Clear
    FileDialog.Show

    If FileDialog.SelectedItems.Count = 0 Then
        ' User cancelled.
    Else
        FolderName = FileDialog.SelectedItems(1)
    End If
    
    Set FileDialog = Nothing
    
    SelectFolderName = FolderName
    
End Function

然后使用文件名构建要保存的 PDF 文件的完整路径。

如何将访问报告保存为带有变量名称的 pdf 并让用户选择位置？

How can i save a access report to pdf with a variable name and let the user choose the location?

评论

评论