Доступ к VBA - Экспорт формы доступа в PDF затем Закройте Adobe Reader

Question

У меня есть код VBA в Access, который экспортирует/сохраняет 3 отдельных формы доступа в PDF для записи. Однако после завершения Adobe Reader открывает сохраненные формы, требуя, чтобы процессор вручную закрыл все 3 формы. 3 формы звучат не так много, но они будут завершать этот процесс непрерывно для всех 239 наших сущностей! Это означает, что им придется вручную нажать «Закрыть» более 700 раз в день! Так много для эффективности.

Есть ли код VBA для закрытия PDF-файла в Adobe Reader?

Ниже приведен код, который я в настоящее время с помощью:

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 

End Sub

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 

Если изменить автозагрузку флаг от Верного Ложных тогда он не будет, и вы не должны закрывать ничего.

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 просто создаст файл.