Bonjour,
Je permets l'impression d'=E9tats en utilisant=20
DoCmd.RunCommand acCmdPrint via une barre d'outils.=20
Seulement, je souhaiterais pouvoir contr=F4ler s'il y a bien=20
eu impression ou pas.
Comment proc=E9der pr m'assurer que l'utilisateur a=20
bien cliqu=E9 sur impression ? Question subsidiaire :=20
comment savoir que l'imprimante a bien g=E9n=E9r=E9=20
l'impression ?
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
3stone
Salut,
"MG" Je permets l'impression d'états en utilisant DoCmd.RunCommand acCmdPrint via une barre d'outils. Seulement, je souhaiterais pouvoir contrôler s'il y a bien eu impression ou pas.
Comment procéder pr m'assurer que l'utilisateur a bien cliqué sur impression ? Question subsidiaire : comment savoir que l'imprimante a bien généré l'impression ?
En mettant un peu de code dans l'état...
' 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 ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"MG"
Je permets l'impression d'états en utilisant
DoCmd.RunCommand acCmdPrint via une barre d'outils.
Seulement, je souhaiterais pouvoir contrôler s'il y a bien
eu impression ou pas.
Comment procéder pr m'assurer que l'utilisateur a
bien cliqué sur impression ? Question subsidiaire :
comment savoir que l'imprimante a bien généré
l'impression ?
En mettant un peu de code dans l'état...
' 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
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"MG" Je permets l'impression d'états en utilisant DoCmd.RunCommand acCmdPrint via une barre d'outils. Seulement, je souhaiterais pouvoir contrôler s'il y a bien eu impression ou pas.
Comment procéder pr m'assurer que l'utilisateur a bien cliqué sur impression ? Question subsidiaire : comment savoir que l'imprimante a bien généré l'impression ?
En mettant un peu de code dans l'état...
' 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 ----------------------------- http://users.skynet.be/mpfa -----------------------------
