Code:
Private Sub ExportNewlinGradProgressPDFs()
Dim reportName As String
Dim fileName As String
Dim criteria As String
reportName = "Grad Progress and Program Report No Param"
fileName = "F:\School Reports\89Q404 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q404' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q404 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q404' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q409 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q409' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q409 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q409' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q422 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q422' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q422 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q422' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q502 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q502' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q502 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q502' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q504 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q504' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q504 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q504' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q507 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q507' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q507 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q507' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q583 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q583' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q583 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q583' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q615 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q615' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q615 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q615' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q639 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q639' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q639 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q639' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q659 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q659' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q659 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q659' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q660 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q660' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q660 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q660' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q683 Coh U Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q683' AND [CO YR] = 'U'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
fileName = "F:\School Reports\89Q683 Coh V Grad Progress and Program Report.pdf"
criteria = "[DBN] = '89Q683' AND [CO YR] = 'V'"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
End Sub
The above code successfully exports 24 PDF files (2 for each school/DBN) that contain specific students and grade levels using the "CO YR" field and "DBN" field, and does so without a version of the report popping up and being seen by the user. Just click and it works. It re-names the criteria/file name as strings, exports the report, closes the report, then re-sets the criteria, etc.