Anzahl Seiten bei einem Report mitgeben

[nyno_de]

Wie kann ich bei einem Mehrseitigem Report für jede Seite eine Anzahl der zu druckenden Seiten aus einer Tbelle mitgeben. Jeder Datensatz der Tabelle entspricht einer Seite im Report. Im Moment ist es so, dass der Report sich die Anzahl aus dem ersten Datensatz nimmt und sich dann nicht mehr aktualisiert.

Dazu mein bisheriger Code:

Private Sub ButtonDruck3_Click()
EtikettendatenHolen.Pflegedaten
On Error GoTo Err_ButtonDruck3_Click


    Dim stDocName As String
    
    Set Loc_DB = CurrentDb
    Set Druckliste = Loc_DB.OpenRecordset("Druckliste - Pflegeetiketten")
    Dim Anzahl As Integer
       
        
    If Me.bool_bell.Value = True Then
        stDocName = "Pflegeetikett"
    Else
        stDocName = "Pflegeetikett_Bell"
    End If
    
    DoCmd.OpenReport stDocName, acPreview
    mldg = "Möchten Sie die Etiketten jetzt drucken?"
    stil = vbYesNo + vbDefaultButton2
    antwort = MsgBox(mldg, stil)
    If antwort = vbYes Then
        DoCmd.PrintOut acPages, , , acMedium, Druckliste!Anzahl, False
    Else
        DoCmd.OpenReport stDocName, acPreview
        DoCmd.Close
    End If
    
Exit_ButtonDruck3_Click:
    Exit Sub

Err_ButtonDruck3_Click:
    MsgBox Err.Description
    Resume Exit_ButtonDruck3_Click
End Sub