OVH Cloud OVH Cloud

Icone

3 réponses
Avatar
capkurk
Bonjour à tous,
Dans 1 feuille, je souhaite dévalider temporairement l'icone de
l'imprimante.
Pouvez-vous m'aider ?

Merci

3 réponses

Avatar
Nicolas B.
Salut capkurk,

Au lieu de désactiver le(s) bouton(s) d'impression (trop compliqué pour
un dimanche, surtout un 15 août ;-) tu peux empêcher l'impression
lorsque tu es sur une certaine feuille (attention : tu pourras toujours
imprimer cette feuille par quelques acrobaties), tu peux placer ce code
dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then Cancel = True
End Sub


A+
Nicolas B.


capkurk wrote:
Bonjour à tous,
Dans 1 feuille, je souhaite dévalider temporairement l'icone de
l'imprimante.
Pouvez-vous m'aider ?

Merci




Avatar
capkurk
Merci bien
"Nicolas B." a écrit dans le message
de news:
Salut capkurk,

Au lieu de désactiver le(s) bouton(s) d'impression (trop compliqué pour
un dimanche, surtout un 15 août ;-) tu peux empêcher l'impression
lorsque tu es sur une certaine feuille (attention : tu pourras toujours
imprimer cette feuille par quelques acrobaties), tu peux placer ce code
dans ThisWorkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then Cancel = True
End Sub


A+
Nicolas B.


capkurk wrote:
Bonjour à tous,
Dans 1 feuille, je souhaite dévalider temporairement l'icone de
l'imprimante.
Pouvez-vous m'aider ?

Merci






Avatar
sabatier
je pense que cela devrait faire à condition de le mettre dans l'évènement
Sheet Activate

Application.CommandBars("Standard ").FindControl(ID:=4).Enabled = False

mais il n'empêche qu'il reste encore Fichier Imprimer

jps

"capkurk" a écrit dans le message de
news:

Bonjour à tous,
Dans 1 feuille, je souhaite dévalider temporairement l'icone de
l'imprimante.
Pouvez-vous m'aider ?

Merci