Imprimer un userform

Bonjour,

Je veux imprimer un userform j'ai utilisé le code suivant mais ca m'imprime que le 2/3 du formulaire, comment faire pour imprimer la totalité du userform ?

Merci

Private Sub CommandButton7_Click()
Me.CommandButton1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
Me.CommandButton4.Visible = False
Me.CommandButton5.Visible = False
Me.CommandButton6.Visible = False

Me.PrintForm
End Sub

Dans la PJ, cliquer sur le bouton "cliquer ici" , choisir personne A, Consulter ouis on imprime le UserForm suivant:

Bonjour,

Peut être ainsi ...

Me.Zoom = 50
Me.PrintForm
Me.Zoom = 100

ric

Re,

Merci pour votre proposition, j'ai remplacé le 50 avec 70 pour avoir un meilleur résultat.