code APRES une impression

Salut,

"Jean-Marc"
| A la fermeture d'un état qui imprime des étiquettes, je pose une question
| pour savoir s'il faut modifier les tables afin de notifier que ces
| étiquettes ont été imprimées (Si l'impression s'était mal faite, il faudrait
| les réimprimer. C'est plus une sécurité qu'autre chose).
| Je voudrais pouvoir placer ce code après l'impression, parce que si on
| n'imprime pas l'état, la question ne devrait même pas être posée.
| Je n'ai rien trouvé me permettant de placer du code APRES l'impression. J'ai
| bien trouvé onpage ou onprint, mais le code s'exécute toujours avant
| l'impression.
| Je n'ai pas trouvé mon bonheur sur le net non plus. Sans doute un mauvais
| critère de recherche, parce que je ne dois pas être le premier à chercher
| cela.


Pour savoir si un état à bien été imprimé, je ne connais que ce code-ci:
(hors cas d'une manipulation volontaire...)


Mettre ce code dans l'état... et adapter la fin!

' Déclarer une variable
Dim Printing As Integer

Private Sub Report_Activate()
Printing = -1
End Sub

Private Sub Report_Deactivate()
Printing = 0
End Sub

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As Integer)
Printing = Printing + 1
End Sub

Private Sub Report_Close()
If Printing >= 1 Then
MsgBox "Ok, c'est envoyé..." ' ou ce que tu veux!
' Ceci ne marche que si l'état à été imprimé
' incluant depuis une prévisualisation!
End If
End Sub



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

Merci Pierre,

J'adapterai à mes besoins.
J'avais déjà vu ça mais je t'avoue que je pensais qu'il existait qqch pour
savoir si un état avait été imprimé.

@+
Jean-Marc


"3stone" <3stone_@_skynet_be> a écrit dans le message de
news:OGBxcrSRFHA.3140@tk2msftngp13.phx.gbl...
Salut,

"Jean-Marc"
| A la fermeture d'un état qui imprime des étiquettes, je pose une question
| pour savoir s'il faut modifier les tables afin de notifier que ces
| étiquettes ont été imprimées (Si l'impression s'était mal faite, il
faudrait
| les réimprimer. C'est plus une sécurité qu'autre chose).
| Je voudrais pouvoir placer ce code après l'impression, parce que si on
| n'imprime pas l'état, la question ne devrait même pas être posée.
| Je n'ai rien trouvé me permettant de placer du code APRES l'impression.
J'ai
| bien trouvé onpage ou onprint, mais le code s'exécute toujours avant
| l'impression.
| Je n'ai pas trouvé mon bonheur sur le net non plus. Sans doute un mauvais
| critère de recherche, parce que je ne dois pas être le premier à chercher
| cela.


Pour savoir si un état à bien été imprimé, je ne connais que ce code-ci:
(hors cas d'une manipulation volontaire...)


Mettre ce code dans l'état... et adapter la fin!

' Déclarer une variable
Dim Printing As Integer

Private Sub Report_Activate()
Printing = -1
End Sub

Private Sub Report_Deactivate()
Printing = 0
End Sub

Private Sub ReportHeader_Print(Cancel As Integer, PrintCount As
Integer)
Printing = Printing + 1
End Sub

Private Sub Report_Close()
If Printing >= 1 Then
MsgBox "Ok, c'est envoyé..." ' ou ce que tu veux!
' Ceci ne marche que si l'état à été imprimé
' incluant depuis une prévisualisation!
End If
End Sub



--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw