Discussion :

[christ45]

Bonjour, j'ai un bout de code pour verrouiller l'impression mais je voudrais le faire par mon bouton sauf que cela verrouille tout

Code :

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

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

je voudrais deverrouiller le verrouillage et a la fin reverrouiller l'impression

mon bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim i As Byte
Dim plage As Range
Unload Me
For i = 1 To 12
If Controls("checkbox" & i) = True Then Range(Controls("checkbox" & i).Tag).PrintOut
 
' impression en couleurs
With ActiveSheet.PageSetup.BlackAndWhite = False
 
End With
Next
End Sub

merci

[Pierre Fauconnier]

Salut.

Une solution est de passer par une variable globale

En haut d'un module standard, tu déclares ta variable booléenne qui vaudra FALSE par défaut

Code :

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

global PrintAllowed as boolean

Dans le code qui gère l'impression

Code :

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

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Cancel = not PrintAllowed
End Sub

Dans le code du bouton

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
  Dim i As Byte
  Dim plage As Range
  Unload Me
  PrintAllowed = true ' On permet l'impression
  For i = 1 To 12
  If Controls("checkbox" & i) = True Then Range(Controls("checkbox" & i).Tag).PrintOut
 
 '   impression en couleurs
    ActiveSheet.PageSetup.BlackAndWhite = False
  Next
  PrintAllowed = false ' On bloque à nouveau l'impression
End Sub