Sauter un numéro de page sur la page de couverture dans Access Report, et nouveau numéro de page de la 2ème page par groupe

Question

J'ai pu trouver un exemple de code pour Access VBA pour insérer "Page of pages" par en-tête de groupe. Chaque groupe est une facture individuelle à notre client.

Maintenant, je veux ajouter la feuille de couverture qui montre le montant total de la facture, et je peux le faire. Mais la page de garde bousille le numéro de page de la toute première facture suivant la page de garde.

Par exemple, la première facture est une seule page. Donc, sans la page de couverture, le numéro de page montre comme "page 1 sur 1".

Mais quand j'ajoute le rapport en-tête, et la force de la nouvelle page « Après la sélection », la feuille de couverture montre page 1 de 2 et la première facture montre page 2 de 2.

Existe-t-il un moyen de ne pas avoir le numéro de page sur la page de garde, et la page suivante a la nouvelle numérotation de la page 1?

ctlGrpPages est le contrôle qui affiche les numéros de page et il est placé dans le pied de page.

Merci beaucoup d'avance.

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As 
Integer) 
Dim i As Integer 


    If Me.Pages = 0 Then 
    ReDim Preserve GrpArrayPage(Me.Page + 1) 
ReDim Preserve GrpArrayPages(Me.Page + 1) 
GrpNameCurrent = Me![Claim Number] 
If GrpNameCurrent = GrpNamePrevious Then 
    GrpArrayPage(Me.Page) = GrpArrayPage(Me.Page - 1) + 1 
    GrpPages = GrpArrayPage(Me.Page) 
     For i = Me.Page - ((GrpPages) - 1) To Me.Page 
      GrpArrayPages(i) = GrpPages 
     Next i 
Else 
    GrpPage = 1 
    GrpArrayPage(Me.Page) = GrpPage 
    GrpArrayPages(Me.Page) = GrpPage 
End If 
Else 
    Me!ctlGrpPages.Value = "Page " & GrpArrayPage(Me.Page) & " of " & 
GrpArrayPages(Me.Page) 
    End If 
    GrpNamePrevious = GrpNameCurrent 
End Sub 

Answer 1

Quel est votre paramètre pour la propriété de rapport PageFooter? Avez-vous essayé 'Pas avec Rpt Hdr'?