Public Function print_individual_clients()

Dim MyDB As DAO.Database
Dim rstParseNames As DAO.Recordset
Dim stDocName As String
Dim stOutput As String
Dim stJustOne As String
Dim stSQL_Text As String

Set MyDB = CurrentDb
Set rstParseNames = MyDB.OpenRecordset("Clients", dbOpenDynaset)

With rstParseNames
  If Not .BOF And Not .EOF Then    
    Do While Not .EOF
    stJustOne = ![Clientid]
    DoCmd.OpenQuery "Report Query"
    
    'Need code here that filters out all but stJustOne
    
    stOutput = "C:\Client_PDFs\" & ![NEW_FILENAME] & ".PDF"
    MsgBox "Print PDF  to " & stOutput
   
    stDocName = "Client Report"
      
    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, stOutput, True
' If I could just put WHERE client=stJustOne that would do it
    .MoveNext
    Loop
  Else
    ' we're done
  End If
End With

rstParseNames.Close
Set rstParseNames = Nothing

MsgBox "Finished printing each client at " & Now
End Function

SELECT Sites.SiteID, Clients.Location, Sites.Customer, Sites.Site, Clients.ACDC, 
Sites.Address, Sites.Phone, Sites.Fax, Sites.Area, Sites.Region, Sites.Contact, 
Clients.ClientID, Clients.ID, Clients.Type, Clients.Capacity, Clients.CrManuf, 
Clients.CrSerNo, Clients.HManuf, Clients.HSerNo, Clients.Lift, Clients.Span, 
Clients.Voltage, Clients.DlvDate, Clients.OperHY, Clients.CrGroup, Clients.Notes, 
Checklists.CompID 
AS Checklists_CompID, Checklists.Desc, CompLib.CompID 
AS CompLib_CompID, CompLib.Item, CompLib.[I#], CompLib.Name, CompLib.SMEH, 
Checklists.SMEH 
FROM (Sites INNER JOIN Clients ON Sites.SiteID = Clients.SiteID) 
INNER JOIN (CompLib INNER JOIN Checklists ON CompLib.CompID = Checklists.CompID) 
ON Clients.ClientID = Checklists.ClientID 
WHERE (((Clients.ClientID) = [JustOneParam])) 
ORDER BY Clients.Location;