Désactiver / activer impression

Nashou · 25 Janvier 2010

Bonjour à tous,

J'ai beau chercher sur le forum, je ne trouve pas le code VBA qu'il me faut.

Voilà, à l'ouverture d'un fichier, je veux que l'impression ne soit pas possible.
Pour cela, j'utilise ce code :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Je veux ré-activer l'impression quand l'utilisateur clique sur un bouton

Private Sub CommandButton1_Click()

End Sub

Je ne vois pas quoi mettre comme code pour ré-activer l'impression.
Si vous pouviez m'aidez.
Merci.

tototiti2008 · 25 Janvier 2010

Re : Désactiver / activer impression

Bonjour Nashou,

Peut-être comme ça :

En haut d'un Module :

Code:

Public AnnulImpr as boolean

Dans ThisWorkbook :

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = AnnulImpr
End Sub
Private Sub Workbook_Open()
    AnnulImpr = True
End Sub

Dans la feuille contenant le Bouton :

Code:

Private Sub CommandButton1_Click()
    AnnulImpr = False
End Sub

Nashou · 25 Janvier 2010

Re : Désactiver / activer impression

Je te remercie, je viens de tester et cela fonctionne.

Encore merci 😉
Je vais pouvoir continuer mon projet 🙂

Je mets mon fichier en partage pour ceux que ça intéresserait.

Désactiver / activer impression

Nashou

Guest

tototiti2008

XLDnaute Barbatruc

Nashou

Guest

Pièces jointes

Discussions similaires

Désactiver / activer impression

Nashou

Guest

tototiti2008

XLDnaute Barbatruc

Nashou

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency