2016-07-06 2 views
0

보고서를 사용하여 쿼리의 모든 레코드를 .pdf로 인쇄하고 싶습니다. 나는 1k 이상의 레코드를 가지고 있으며 각 레코드를 .pdf로 저장하려고합니다. "filename"필드를 사용하여 보고서를 저장하려는 의도로 쿼리에서 "filename"필드를 연결했습니다. 최종 결과는 "인쇄?"버튼을 클릭하는 것입니다. 데이터베이스는 각 레코드를 .pdf로 인쇄하고 "파일 이름"필드에 따라 파일을 저장합니다.Access 2010 변수 파일 이름의 .pdf로 인쇄

저는 VBA에 대해 거의 알지 못하고 매크로를 통해 작업하고 있습니다. Macro for Printing Training Checklist report

그래서 [리포트]를 인쇄하고 있습니다.
보고서 이름은 "R Training Checklist"입니다.
변수 filename은 "filename"입니다.

최종 결과는 식별 된 위치에서 "filename"필드에 입력 된 데이터와 함께 저장된 .pdf 파일입니다.

출력 파일 "C : \ Users \ mabanes \ Creative Cloud Files \ Training 체크리스트 \ test2.pdf" ... 아무 문제가 없습니다. 그러나 나는 1k 레코드 이름에 "test2.pdf"라는 이름을 쓰지 않고 각 레코드의 이름을 개별적으로 바꾸고 싶지 않습니다.

표현에 문제가있는 것처럼 보일 수도 있지만 알아낼 수는 없습니다. "C : \ 사용자 \ mabanes 크리에이티브 클라우드 파일 \ 훈련 체크리스트 \ \"& 보고서 [R 교육 체크리스트] [파일 이름] & ".PDF"

+0

표현식에 느낌표가 필요합니까? 나는 [Reports!]. [R Training Checklist]' – Huntdogg

+0

아무 생각도 ... 내가 시도한 많은 조합 중 하나였습니다. –

+0

참조 : [Ouput Report to PDF] (http://stackoverflow.com/questions/2296884/how-can-i-output-a-report-in-pdf-format-where-the-consists-of- values-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() 희미한 strReportName이 문자열로 DoCmd.OpenQuery "Q 작업이 할당 된"문자열로 희미한 MYPATH, acViewPreview MYPATH = "C : \ 사용자 \ mabanes 크리에이티브 클라우드 파일 \ 훈련 체크리스트 \ \" 는 strReportName = Report_R 훈련 점검표. [파일 이름] + ".PDF" DoCmd.OutputTo acOutputReport는, "", acFormatPDF는 MYPATH + strReportName, 진정한 DoCmd.Close acReport는 " 최종 하위이 –

+0

미안 그 펑키 보인다"보고서 ... 나에게 문제를주는 것은 strReportName입니다. = 줄 ... –