使用可变文件名访问 2010 打印到 .pdf

Posted 2023-05-06

【中文标题】使用可变文件名访问 2010 打印到 .pdf

【英文标题】：Access 2010 Print to .pdf with variable filename

【发布时间】：2016-07-06 14:47:45

【问题描述】：

我想使用报告将查询的所有记录打印为 .pdf。我有超过 1k 条记录，并希望将每条记录保存为 .pdf。我在查询中连接了“文件名”字段，目的是使用“文件名”字段保存报告。最终结果将是单击“打印？”按钮。并且数据库会将每条记录打印为 .pdf 并根据“文件名”字段保存文件。

我对 VBA 知之甚少，并且正在研究一个宏。 Macro for Printing Training Checklist report

所以，我正在打印一份 [报告]。 报告名称为“R 培训清单”。 变量文件名是“文件名”

最终结果将是一个 .pdf 文件，其中包含在已识别位置的“文件名”字段中输入的数据。

如果我使用输出文件 "C:\Users\mabanes\Creative Cloud Files\Training Checklists\test2.pdf" ...我没有问题。但是，我不希望有 1k 条记录名称为“test2.pdf”，我不希望自己去重命名每条记录。

我的表达似乎有问题，但似乎无法弄清楚。 "C:\Users\mabanes\Creative Cloud Files\Training Checklists\" & Reports![R Training Checklist].[Filename] & ".pdf"

【问题讨论】：

你的表达中是否需要感叹号？我注意到它有[Reports!].[R Training Checklist]

不知道...是我尝试过的众多组合之一。

见：Ouput Report to PDF

【参考方案1】：

Private Sub Create_PDF_Report()

Dim myPath As String
Dim strReportName As String

DoCmd.OpenQuery "QUERYNAME", acViewPreview

myPath = "C:\Users\mabanes\Creative Cloud Files\Training Checklists\"
strReportName = Report_Name.[Whatever you want here] + "etc." + ".pdf"

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True
DoCmd.Close acReport, "Reports"

End Sub

通过一些配置来匹配您想要的文件名/路径，应该适合您。

【讨论】：

所以，我得到一个编译错误。 Private Sub Command29_Click() Dim myPath As String Dim strReportName As String DoCmd.OpenQuery "Q Tasks Assigned", acViewPreview myPath = "C:\Users\mabanes\Creative Cloud Files\Training Checklists\" strReportName = Report_R Training Checklist.[文件名] + ".pdf" DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True DoCmd.Close acReport, "Reports" End Sub

对不起，这看起来很时髦......给我带来问题的一样是strReportName = line......