Private Sub cmdSpendDOMPrint_Click()
DoCmd.Close
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As QueryDef
Dim sBasePath As String
Dim sPath As String
sBasePath = "Z:\Utilities\Real Estate Database Project\Test\"
sPath = sBasePath & Format(Date, "mmddyyyy") & "\"
If Dir(sPath) = "" Then
MkDir sPath
Else
End If
Set db = CurrentDb
Set qdf = db.QueryDefs("qrySpendbyDOMReport") 'My parameter query
qdf.Parameters(0) = [Forms]![frmReportMenu]![cmboDomID] 'Form control
Set rst = qdf.OpenRecordset
Do While Not rst.EOF
strRptFilter = "[propDOMID] = " & rst.Fields("propDOMID")
DoCmd.OpenReport "Trash Spend by DOM", acPreview
DoCmd.OutputTo acOutputReport, "Trash Spend by DOM", acFormatPDF, sPath & rst.Fields("DOM") & " " & "Summary Graphs" & ".pdf"
DoCmd.Close
DoCmd.OpenReport "subrptTrashSpendbyDOM", acPreview
DoCmd.OutputTo acOutputReport, "subrptTrashSpendDOM", acFormatPDF, sPath & rst.Fields("DOM") & " " & "Terminal Information" & ".pdf"
DoCmd.Close
DoEvents
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing
End Sub