Hallo SoftAid,
hieronder het gehele onderdeel.
Gr. Math
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"
'MsgBox "Factuurnummer " & rs(1) & " voor klant " & rs(0)
'Bestandsnaam = rs(1) & "-" & rs(0) & ".pdf"
Bestandsnaam = "faktuunr " & rs(1) & "-" & "klant " & rs(0) & ".pdf"
DoCmd.OpenReport "AFDRUK FAKTUUR", acViewPreview, , "FAKTUURNR=" & rs(1)
Dim opslag As String
opslag = "d:\winkel bestanden\fakturen\testmap\pdf\" & rs(0)
If Dir(opslag) = "" Then
MkDir CurrentProject.Path & "\" & rs(0) 'Bij foutcode 75 bestaat de directory
Else
End If
'Om in het zelfde mapje als de database af te drukken zet je er CurrentProject.Path & "\" voor
'ONDERSTAANDE REGEL SCHRIJFT BESTAND IN -- WINKEL BESTANDEN\FAKTUREN\TESTMAP\PDF\PDF
DoCmd.OutputTo acOutputReport, "AFDRUK FAKTUUR", acFormatPDF, CurrentProject.Path & "\" & rs(0) & "\" & Bestandsnaam, False
'ONDERSTAANDE REGEL SCHRIJF BESTAND WEG IN -- WINKEL BESTANDEN\FAKTUREN\TESTMAP\PDF\BESTANDSNAAM
DoCmd.OutputTo acOutputReport, "AFDRUK FAKTUUR", acFormatPDF, CurrentProject.Path & "\PDF" & "\" & Bestandsnaam, False
'Sluit het rapport "AFDRUK FAKTUUR" en sla het bestand op
DoCmd.Close acReport, "AFDRUK FAKTUUR", acSaveNo
'ga naar het volgende record
rs.MoveNext
Wend
'MsgBox ("Rapporten weggeschreven in d:\winkel bestanden\fakturen\testmap\pdf\.....en PDF bestanden gemaakt ")
MsgBox " bestanden opgelagen in " & opslag
End Sub