VBA에 액세스 - PDF로 액세스 양식 내보내기 후 Adobe Reader 닫기

Question

Access에 VBA 코드가있어 레코드 용으로 별도의 Access Forms를 PDF로 내보내거나 저장합니다. 그러나 완료되면 Adobe Reader는 저장 한 양식을 열어 프로세서가 모든 3 개의 양식을 수동으로 닫아야합니다. 3 가지 양식은별로 들리지 않지만 239 개 기관 모두를 위해이 과정을 지속적으로 완료하게 될 것입니다! 즉, 하루에 700 번 이상 수동으로 닫기를 클릭해야합니다. 효율성을 위해서는 너무.

Adobe Reader에서 PDF를 닫을 VBA 코드가 있습니까?

Private Sub Command4_Click() 
DoCmd.SetWarnings False 

DoCmd.OpenQuery "Add to Completed", acViewNormal 
DoCmd.OpenQuery "Clear from Master", acViewNormal 
DoCmd.OpenQuery "Completed Totals", acViewNormal 
DoCmd.OpenQuery "Update AB Totals", acViewNormal 
DoCmd.OpenQuery "Update CD Totals", acViewNormal 
DoCmd.OpenQuery "Update EF Totals", acViewNormal 
DoCmd.OpenQuery "Update YTD Total", acViewNormal 

DoCmd.OpenForm "Form123-pg1", acPreview 
DoCmd.PrintOut acPrintAll 
**DoCmd.OutputTo acOutputForm, "Form123-pg1", acFormatPDF, "Z:\Corporate\SubProcess\2014\" & Format(Date - 30, "mmyy") & " - " & [Forms]![Deal_Nav]![cbo_UnitNo] & " ReportName Pg1.pdf", True** 
DoCmd.Close acForm, "Form123-pg1", acSaveNo 
DoCmd.OpenForm "Form123-pg2", acPreview 
DoCmd.PrintOut acPrintAll 
**DoCmd.OutputTo acOutputForm, "Form123-pg2", acFormatPDF, "Z:\Corporate\SubProcess\2014\" & Format(Date - 30, "mmyy") & " - " & [Forms]![Deal_Nav]![cbo_UnitNo] & " ReportName Pg2.pdf", True** 
DoCmd.Close acForm, "Form123-pg2", acSaveNo 
DoCmd.OpenForm "Form123-pg3", acPreview 
DoCmd.PrintOut acPrintAll 
**DoCmd.OutputTo acOutputForm, "Form123-pg3", acFormatPDF, "Z:\Corporate\SubProcess\2014\" & Format(Date - 30, "mmyy") & " - " & [Forms]![Deal_Nav]![cbo_UnitNo] & " ReportName Pg3.pdf", True** 
DoCmd.Close acForm, "Form123-pg3", acSaveNo 

Me.Requery 
Me.Refresh 
DoCmd.SetWarnings True 

최종 하위

Answer 1

Acrobat에서 당신이 그것을 말해 때문에 PDF 파일을 만든 후 열립니다 아래

내가 현재 사용하고있는 코드입니다.

DoCmd.OutputTo acOutputForm, "Form123-pg1", acFormatPDF, "Z:\Corporate\SubProcess\2014\" & Format(Date - 30, "mmyy") & " - " & [Forms]![Deal_Nav]![cbo_UnitNo] & " ReportName Pg1.pdf", True 

AutoStart 플래그를 True에서 False로 변경하면 아무 것도 닫히지 않으므로 아무 것도 닫지 않아도됩니다.

DoCmd.OutputTo acOutputForm, "Form123-pg1", acFormatPDF, "Z:\Corporate\SubProcess\2014\" & Format(Date - 30, "mmyy") & " - " & [Forms]![Deal_Nav]![cbo_UnitNo] & " ReportName Pg1.pdf", False 

이제 Docmd.OutputTo은 파일을 만듭니다.