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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles
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
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
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
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
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
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
