Access 2010使用变量文件名打印到.pdf

我想使用报告打印到.pdf输出查询的所有记录。我有超过1K条记录，并且希望将每条记录保存为.pdf。我在查询中连接了“filename”字段，意图使用“filename”字段保存报告。最终的结果是点击一个按钮“打印？”并且数据库将打印到.pdf每个记录并基于“文件名”字段保存文件。Access 2010使用变量文件名打印到.pdf

我对VBA知之甚少，并且正在通过一个宏来工作。 Macro for Printing Training Checklist report

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

最终的结果将是保存与该数据在所识别的位置输入到字段“文件名” .pdf文件。

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

看来我的表情有问题，但似乎无法弄清楚。 “C：\用户\ mabanes \创意云文件\培训清单\” &报告[R培训清单] [文件名] & “.PDF”

来源

2016-07-06 Mike Banes

您的表情中是否需要感叹号？我注意到它有'[Reports！]。[R培训清单]' – Huntdogg

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

参见：[将输出报告至PDF]（http://stackoverflow.com/questions/2296884/how-can-i-output-a-report-in-pdf-format-where-the-name-consists-of-值）from） – Huntdogg

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

应该为你的工作与刀头构成的！以匹配您想要的文件名/路径。

来源

2016-07-06 18:42:47 Opzen

所以，我得到一个编译错误。私人小组Command29_Click（）昏暗mypath中作为字符串昏暗strReportName作为字符串 DoCmd.OpenQuery “Q任务分配”，acViewPreview mypath中= “C：\用户\ mabanes \创意云文件\训练清单\” strReportName = Report_R训练清单。[文件名] + “.PDF” DoCmd.OutputTo acOutputReport， “”，acFormatPDF，mypath中+ strReportName，真 DoCmd.Close acReport， “报告” 结束子 –

抱歉，看起来时髦... 像给我的问题是strReportName =行... –

Access 2010使用变量文件名打印到.pdf

回答

相关问题