Discussion :

[Krylancelo]

Bonjour,

Voila j'utilise des formulaires et j'aimerai empecher les utilisateurs d'imprimer ses formulaires en bloquant "Ctrl+P" mais aussi le boon imprimer.

J'ai essayé d'utiliser l'evènement BeforePrint mais je ne suis pas très calé en VB donc je pense l'avoir mal utilisé.

Merci beaucoup!
Kry

[Krylancelo]

personne ne pourrait m'aider svp??

merci beaucoup!

[cafeine]

Hello,

montre nous le code que tu as essayé et quels sont les résultats ...

[Arkham46]

slt,

pour bloquer ctrl+P (attention blocage dans toute l'application dans ce cas...)
- une nouvelle macro, impérativement nommé autokeys
- dans le menu : affichage --> nom de macro
- dans la colonne "Nom de Macro" : ^P
- dans la colonne "Action" : ne rien mettre

[Maxence HUBICHE]

slt,

pour bloquer ctrl+P (attention blocage dans toute l'application dans ce cas...)
- une nouvelle macro, impérativement nommé autokeys
- dans le menu : affichage --> nom de macro
- dans la colonne "Nom de Macro" : ^P
- dans la colonne "Action" : ne rien mettre

Superbe idée !

Maintenant, si cela ne concerne qu'un seul formulaire, il faudra tester si l'objet en cours est bien ce formulaire là !

[Arkham46]

Bon alors pour un formulaire particulier :
- soit exécuter du code avec la macro pour tester la valeur de Screen.ActiveForm.Name
- soit sans la macro tester la séquence de touches dans l'événement "sur touche appuyée" :

1 - Déclaration en en-tête de module :

Code :

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

1
2
Private Declare Function GetKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Const VK_CONTROL As Long = 17

2 - Mettre "Aperçu des touches" à "oui" pour le formulaire

3 - Sur l'événement "Touche appuyée" :

Code :

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

1
2
3
4
5
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If GetKeyState(VK_CONTROL) < 0 And KeyCode = 80 Then
    KeyCode = 0
End If
End Sub