Private Sub Command10_Click()

  On Error Resume Next
  
  Const Folder = "r:\alarmnet\alarmnetpdf\"
  Const Domain = "DealerList" ' - -Dealer_List
  Const LoopedField = "DealerID"
  Const LoopedName = "DealerName"
  Const reportname = "NewDealer"
  
  Dim rs As DAO.Recordset
  Dim LoopedFieldValue As String ' - - Long
  Dim NameValue As String
  Dim FileName As String
  Dim FullPath As String
  Dim strWhere As String
  
  Set rs = CurrentDb.OpenRecordset(Domain)
  Do While Not rs.EOF
    LoopedFieldValue = rs.Fields(LoopedField)
    NameValue = rs.Fields(LoopedName) & ".PDF"
    FullPath = Folder & NameValue
    strWhere = LoopedField & " = " & LoopedFieldValue
    Debug.Print FullPath
    Debug.Print strWhere
    DoCmd.OpenReport reportname, acViewPreview, , strWhere
    DoCmd.OutputTo acOutputReport, reportname, acFormatPDF, FullPath
    DoCmd.Close acReport, reportname
    rs.MoveNext
  Loop
    
  MsgBox ("Print PDF Complete")

End Sub