PDF doc per pagina opslaan?

[RSpan]

Hallo Allemaal

Bij een cliënt werken meerdere ZZP'ers, elke twee weken print ik een factuur voor de cliënt en een kopie fatuur voor elke ZZP'er afzonderlijk.
Echter bij het opslaan van het gemaakte PDF bestand staan de kopie facturen allemaal in één bestand.
Omdat ik de kopie facturen niet meer per post maar per mail wil gaan versturen, moeten de kopie facturen apart opgeslagen worden en niet meer in één bestand.
Ik heb geen idee of dat mogelijk is en zo ja hoe ik dat moet maken.
Hieronder staat de code die ik gebruik.
In het formulier kies ik eerst de cliënt, dan de periode en vervolgens klik ik op de knop print.
Nu wordt eerst de factuur voor de cliënt geprint, die sla ik vervolgens op en dan de facturen voor de ZZP'ers en die worden dan opgeslagen als één PDF bestand.

Ik hoop dat iemand een oplossing heeft.

Groet
René

Option Compare Database

'factuur Organisatie

Private Sub cmdReset_Click()
    Me.cboSelectName = Null
    Me.cboSelectWeek = Null
    Me.Select10 = Null
    Me.Select12 = Null
    Me.Select128 = Null


End Sub

Private Sub cmdGenerateReport_Click()
    On Error GoTo Err_cmdGenerateReport_Click

    Dim stDocName As String
    Dim stWhere As String
   
        If IsNull(Me.cboSelectName) Then
            MsgBox "U moet nog een naam selecteren", , "PlanZ"
        Else
          If IsNull(Me.cboSelectWeek) Or IsNull(Me.cboSelectName) Then
            MsgBox "U moet nog een weeknr selecteren", , "PlanZ"
          Else
            If Not IsNull(Me.cboSelectName) Then
                   stWhere = "[OrganisatieID]=" & Me.cboSelectName & " And "
                   blnTrim = True
            End If
                    
            If Not IsNull(Me.cboSelectWeek) Then
                    stWhere = stWhere & "[WeekID]=" & Me.cboSelectWeek & " And "
                    blnTrim = True
            End If

            If blnTrim Then
               stWhere = Left(stWhere, Len(stWhere) - 5)
                 
              If Me.Select12 = -1 Then

                    stDocName = "rptfactOrg2btw"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                          
                    stDocName = "rptfactFrl"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                
                    stDocName = "rptWkUitbFrl"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                    
                  DoCmd.OpenForm "FrmBetalingen"
                   
                    stDocName = "rptVbladOrg"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                    
               Else
               
                    stDocName = "rptfactOrg2"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                    
                    stDocName = "rptfactFrl"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                
                    stDocName = "rptWkUitbFrl"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                    
                  DoCmd.OpenForm "FrmBetalingen"
                          
                    stDocName = "rptVbladOrg"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
            
                'DoCmd.OpenForm "FrmBetalingen"

            End If
           End If
          End If
        End If

    
Exit_cmdGenerateReport_Click:
Exit Sub

Err_cmdGenerateReport_Click:
MsgBox "Geannuleerd of geen gegevens om te printen", , "PlanZ"
Resume Exit_cmdGenerateReport_Click

End Sub[/FONT]