Imprimer ou non ?

Comment savoir si un état a été imprimé ou non ?

Il peut être intéressant de savoir si un état à été imprimé. Même si l'impression se fait à partir de la prévisualisation.

Bien sûr, cela n'exclut pas un disfonctionnement de l'imprimante ou une remise à zéro du tampon d'imprimante.
 

Option Compare Database
Option Explicit

'Déclarez 'Public' si vous voulez tester les sous états
Dim Printing As Integer

'Sur impression de l'en-tête de l'état
Private Sub EntêteÉtat_Print(Cancel As Integer, PrintCount As Integer) 
      Printing = Printing + 1
End Sub

'Sur activé de l'état
Private Sub Report_Activate()
     Printing = -1
End Sub

'Sur Désactivé de l'état
Private Sub Report_Deactivate()
      Printing = 0
End Sub

Sur fermeture de l'état
Private Sub Report_Close()
    If Printing >= 1 Then
       '
        MsgBox "Ok, imprimé !"
       '
       'Ici on peut également ajouter un enregistrement à une table
       'par exemple le nom de l'état, l'heure de l'impression...
       '
    End If
End Sub