Sub PrintAsPDF( _
  ByVal strFilename As String, _
  ByVal strReportName As String, _
  Optional ByVal strWhere As String = "", _
  Optional ByVal blnOpenReader As Boolean = False)
 
  DoCmd.OpenReport strReportName, acViewPreview, , _
    strWhere, acHidden
 
  DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, _
    strFilename, blnOpenReader
 
  DoCmd.Close acReport, strReportName
End Sub
Private Sub Afficher_Factures_Click()
   Dim strFichier As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As dao.Recordset
  
    strEtat = "Facture-mult"
  
  
    strFichier = "c:\Docs\test\Fact" & DLookup("[numfact]", "fact_synthese-mult", strFilter) & ".pdf"
  
    Set rst = CurrentDb.OpenRecordset("fact_synthese-mult", dbOpenSnapshot)
  
    While Not rst.EOF
'strFiltre = "[réffacture] = " & rst("réffacture")
strFiltre = "[réffacture] <> rst(1) & rst(2)"
   
    PrintAsPDF strFichierPDF, strEtat, strFiltre
   
    rst.MoveNext
    Wend
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

Public Function BouclerFacture()
    Dim Rst As dao.Recordset
    Dim NbreEnreg As Integer
    Dim i As Integer
    Dim strFiltre As String
   
    Set Rst = Me.RecordsetClone
    NbreEnreg = Me.RecordCount
   
    For i = 1 To NbreEnreg
        strFiltre = "[IdFacture] = " & Rst.IdFacture
       
        PrintAsPDF strFichierPDF, strNomEtat, strFiltre
       
    Next i
   
    Rst.Close
    Set Rst = Nothing
End Function