Discussion :

[Blackjpt]

Bonjour,

Le post date
http://www.developpez.net/forums/d57...cu-impression/

un peu mais je suis confronté à la situation.
Je souhaite interrompre le code, si dans l'aperçu avant impression l'utilisateur clique sur "Fermer l'aperçu avant impression".
Je viens de tester et le code se poursuit.

Mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub IpressionQuittance()
'impression de la quittance
With Sheets("Quittance")
   'défini la plage d'impression
   PlageImp = .Range("B1:E43").Address
   .PageSetup.PrintArea = PlageImp
   .PrintPreview
   ' tester si l'impression a été abandonnée
 
   'Note la quittance comme imprimée
   LeMois = .Range("B19").Value
   LeLocataire = .Range("D12").Value
   Li = Application.Match(LeMois, Sheets(LeLocataire).Range("B:B"), 0)
   'Ecris Imp pour quittance imprimée en colonne I
   Sheets(LeLocataire).Cells(Li, "I") = "Imp"
End With
End Sub

Merci à celui qui pourra m'apporter une précision.

[Antoun]

Je n'ai pas l'impression que ce soit possible directement...

Sur le module Workbook, tu as un événement BeforePrint, donc il faudrait par exemple que le BeforePrint passe un flag global à True si l'onglet actif est le bon. Ton code principal devrait attendre que ce flag soit True, tout en exécutant un DoEvents, et fixer un temps limite au bout duquel l'impression est considérée comme abandonnée.

[Oliv-]

Bonsoir,
Essayez comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
    tasimprimeoupas = ActiveSheet.PrintPreview
    If tasimprimeoupas Then
 
        MsgBox "OUI"
    Else
 
        MsgBox "NON"
    End If
End Sub

[Blackjpt]

Bonjour Oliv, Antoun et le forum,

C'est parfait Oliv.
Je viens d'adapter ta proposition et elle répond à mon attente.

Merci