Bouton imprimer un userform

Bonjour,

J'ai un userform qui a 10 champs.

j'ai fais un bouton pour imprimer ce userform avec:

Private Sub btnimprimer_Click()
Dim tnumligne As Long
    Dim reponse As Integer
reponse = MsgBox("Vous voulez bien imprimer la fiche de cet Adhérant?", _
                vbQuestion + vbYesNo + vbDefaultButton1, "CONFIRMATION MODIFICATION")
          If reponse = vbYes Then
          ElseIf reponse = vbNo Then
        Exit Sub
        Unload Me
    End If
 Me.PrintForm
End Sub

et cela fonctionne bien.

Par contre le problème est qu'il ne remplit que la moitié d'une page A4, comment ajuster l'impression.

Merci de votre réponse.

Bonjour,

Printform ne comportant aucun paramètre cela ne me semble guère possible...

Personnellement j'envoie les données du UserForm vers une feuille cachée avec la disposition qui va bien et la mise en page correcte et basta !

A+

Merci de la réponse