Here is some example code for you to try. You will need to edit the outDir and reportName variables to match your situation. I made some assumptions, the biggest assumption is that you want an individual pdf for each record in that query you posted.
*warning* this could take a while to finish depending on how many records it has to go through. It would be better if you only ran the report on those that havn't already been saved to pdf. It would be trivial to add code to below to first check for an existing pdf that already has the same name and skip outputting that record, though without knowing your situation I'm not sure if that's ideal.
Code:
Private Sub Command0_Click()
On Error GoTo ErrHandler
Dim reportName As String
Dim outDir As String
Dim outPath As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
outDir = "C:\report_output\"
reportName = "Report1"
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [pws_id#], pws_name, date_of_inspection FROM table1;", dbOpenSnapshot)
If Not (rs.BOF And rs.EOF) Then
rs.MoveFirst
Do While Not rs.EOF
outPath = outDir & rs!pws_name & "_" & Format(rs!date_of_inspection, "yyyymmdd") & ".pdf"
DoCmd.OpenReport reportName, acViewPreview, , "table1.[pws_id#]=" & rs![pws_id#], acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, outPath
DoCmd.Close acReport, reportName, acSaveNo
rs.MoveNext
Loop
End If
rs.Close
ExitHandler:
Set rs = Nothing
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , Err.Number
Resume ExitHandler
End Sub