Access VBA-экспорт формы доступа в PDF, затем закройте Adobe Reader

У меня есть код 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:CorporateSubProcess2014" & 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:CorporateSubProcess2014" & 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:CorporateSubProcess2014" & 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

Конец Sub