N° classement dans un état
Le
ibowl77
Bonjour,
Pour calculer un classement, j'utilise le code suivant. Ca marche très bien
sauf que si j'imprime après aperçu (y compris sur une imprimante PDF), ou si
je sors le document via word en format RTF, le classement ne commence pas à
1, mais continue depuis le dernier n°.
Que manque-t-il dans cette proc pour que cet inconvénient disparaisse ?
merci pour votre aide.
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
classreel = classreel + 1
If Score = scoreprec Then
classement = classprec & " ex"
Else:
classprec = classreel
classement = classreel
End If
scoreprec = Score
End Sub
Maurice BARDOT
Pour calculer un classement, j'utilise le code suivant. Ca marche très bien
sauf que si j'imprime après aperçu (y compris sur une imprimante PDF), ou si
je sors le document via word en format RTF, le classement ne commence pas à
1, mais continue depuis le dernier n°.
Que manque-t-il dans cette proc pour que cet inconvénient disparaisse ?
merci pour votre aide.
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
classreel = classreel + 1
If Score = scoreprec Then
classement = classprec & " ex"
Else:
classprec = classreel
classement = classreel
End If
scoreprec = Score
End Sub
Maurice BARDOT
Poser une question
Bonjour, Maurice
Sur impression de l'entête d'état, ajoute ceci:
Private Sub EntêteEtat_Print(Cancel As Integer, PrintCount As Integer)
classreel = 0
End Sub
Bonne continuation