Code:
Private Sub cmdBtnExportExcel_Click()
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-CoD", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-CoED", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-EXPL", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-Global", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-Healthy Comm", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-LCB", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-Media", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-Public Policy", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-Scientific Discovery", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-SOJC", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
SendKeys "{ENTER}"
DoCmd.OutputTo acOutputReport, "Flightpath Report-SOMD", "Excel97-Excel2003Workbook(*.xls)", "", False, "", , acExportQualityPrint
End Sub