Est'il possible d'imprimer le contenue des textbox?

reinruof77

XLDnaute Occasionnel
Bonjour a Tous et toutes

Voila je recherche le moyen d'imprimer les textbox de mon userform est ce faisable et si oui comment?.:confused:
(petite precision les textbox sont remplis par un fichier ou plutôt une listview.

Je vous met mon fichier afin de mieux me faire comprendre.

Je vous remercie de vos réponse qui seront j'en suis sur trés instructive :)
 

Fichiers joints

PMO2

XLDnaute Accro
Re : Est'il possible d'imprimer le contenue des textbox?

Bonjour,

Essayez d'inclure le code suivant dans la fenêtre de code de votre UserForm
Code:
Private Sub Frame1_Click()
Dim C As Control
Dim i&
Dim rep
'--- Masque tous les contrôles ---
For Each C In Me.Controls
  C.Visible = False
Next C
'--- Démasque les contrôles à imprimer ---
Frame1.Visible = True
For i& = 1 To 6
  Me.Controls("Label" & i& & "").Visible = True
  Me.Controls("TextBox" & i&).Visible = True
Next i&
'--- Confirmation de l'impression ---
rep = MsgBox(prompt:="Voulez-vous faire une impression ?", Title:="Imprimer", Buttons:=vbOKCancel)
If rep = vbOK Then Me.PrintForm
'--- Démasque tous les contrôles ---
For Each C In Me.Controls
  C.Visible = True
Next C
End Sub
Ce code se déclenchera lorsque vous cliquerez sur la Frame1. Il masquera tous les contrôles, ne laissant visibles que ceux à imprimer.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas