Code pour imprimer et cacher des boutons

[lolo_bob2]

Bonsoir à tous

Voila je veux imprimer mon userform et cacher les botons qui sont sur ce formulaire.
J'ai deux morceaux de code mais je ne sais pas comment faire pour les assembler

Private Sub B_imprime2_Click()
Dim c As Control
For Each c In Me.Controls
If TypeName(c) = "CommandButton" Then c.Visible = False
Next c
Me.PrintForm --> INSERTION ICI DU SECOND CODE ?
For Each c In Me.Controls
If TypeName(c) = "CommandButton" Then c.Visible = True
Next c
End Sub


et

Private Sub UserForm_Click()
res = Me.Height
Me.Height = 1576
Me.PrintForm
Me.Height = res
End Sub

Sachant que le premier va permettre de cacher les boutons lors de l'impression et le deuxième me permet d'imprimer mon formulaire en entier.

Merci de votre aide

A++

 

[Essem]

Re : Code pour imprimer et cacher des boutons

Salut Lolo_bob2 et le forum,

Moi à première vue, je ferais ceci...

Private Sub B_imprime2_Click()
Dim c As Control
For Each c In Me.Controls
If TypeName(c) = "CommandButton" Then c.Visible = False
Next c

res = Me.Height
Me.Height = 1576
Me.PrintForm
Me.Height = res

For Each c In Me.Controls
If TypeName(c) = "CommandButton" Then c.Visible = True
Next c
End Sub

Revenir sur le fil si ça ne marche pas!

Essem