Question

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

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

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

最终结果将是保存的.pdf文件，并在标识的位置输入字段“filename”。

如果我使用输出文件 “C：\ Users \ mabanes \ Creative Cloud Files \ Training Checklists \ test2.pdf” ......我没有问题。但是，我不想要1k记录名称“test2.pdf”，我必须去个人重命名每个记录。

我的表达似乎有些不对劲，但似乎无法弄明白。 “C：\ Users \ mabanes \ Creative Cloud Files \ Training Checklists”＆amp;报告！[R培训清单]。[文件名]＆amp; “.PDF”

Answer 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

应该为您提供一些配置以匹配您想要的文件名/路径。

Access 2010打印到.pdf，文件名为

1 个答案: