Wijzig de gebeurtenis Knop0 Klikken in
Private Sub Knop0_Click()
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
'stop alle klantnummers die een factuur hebben in rs
Set rs = db.OpenRecordset("SELECT DISTINCT [Klant nr], FAKTUURNR FROM [T_PRINT FAKTUUR]")
'ga naar het eerste recordset
rs.MoveFirst
'zolang er records zijn
While Not rs.EOF
'druk af voor deze klant
Dim Bestandsnaam As String
'Bestandsnaam = FActuurnummer + streepje + klantnummer + ".pdf"
Bestandsnaam = rs(1) & "-" & rs(0) & ".pdf"
DoCmd.OpenReport "AFDRUK FAKTUUR", acViewPreview, , "[Klant nr]=" & rs(0)
'Om in het zelfde mapje als de database af te drukken zet je er CurrentProject.Path & "\" voor
DoCmd.OutputTo acOutputReport, , acFormatPDF, CurrentProject.Path & "\" & Bestandsnaam & ".pdf", True
'ga naar het volgende record
rs.MoveNext
Wend
End Sub