Discussion :

[electrosat03]

Salut,

J'aimerais numéroter les copies d'un état.
Par ex si un état comporte plusieurs pages qui sont numérotées 1/1;1/3,2/3,3/3;... et que je demande 2 copies, comment mettre sous chaque pages, le numéro de copie 1 pour toutes les pages de la première impression puis copies 2 pour la deuxième série.

Je demande le nbre de copie grace à une boite input box et la commande docmd.printout ,,,2.

Merci

[electrosat03]

Salut,
Après qq test, j'ai trouvé la solution. La voici pour ceux que cela intéresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)
    'Impression du numéro de copie
    VarNumPage = Me.Page 'Numéro de la page en cour
    Me.TxtCounter = "Copie " & counter 'impression du Numéro de la copie
    If VarNumPage = Me.Txtpagestot Then 'Si la page = le nbre total de pages
        counter = counter + 1 'On ajoute 1 au numéro de la copie
    End If
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub Report_Open(Cancel As Integer)
counter =1

Me.Txtpagestot est une zone de texte placée en pied de page
Il faut placé également une ZT en pied de page qui à comme source =[Pages]
Mettez la en invisible.

A+