2016-07-06 50 views
0

我想使用報告打印到.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」

+0

您的表情中是否需要感嘆號?我注意到它有'[Reports!]。[R培訓清單]' – Huntdogg

+0

不知道...是我嘗試過的很多組合之一。 –

+0

參見:[將輸出報告至PDF](http://stackoverflow.com/questions/2296884/how-can-i-output-a-report-in-pdf-format-where-the-name-consists-of-值)from) – Huntdogg

回答

0
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 

應該爲你的工作與刀頭構成的!以匹配您想要的文件名/路徑。

+0

所以,我得到一個編譯錯誤。 私人小組Command29_Click() 昏暗mypath中作爲字符串 昏暗strReportName作爲字符串 DoCmd.OpenQuery 「Q任務分配」,acViewPreview mypath中= 「C:\用戶\ mabanes \創意雲文件\訓練清單\」 strReportName = Report_R訓練清單。[文件名] + 「.PDF」 DoCmd.OutputTo acOutputReport, 「」,acFormatPDF,mypath中+ strReportName,真 DoCmd.Close acReport, 「報告」 結束子 –

+0

抱歉,看起來時髦... 像給我的問題是strReportName =行... –