De: Laurent Longre <laurent.longre@free.fr>
Objet: Re: Imprimer le contenu d'un userform..
Date : jeudi 9 novembre 2000 19:18

yvon06 a &eacute;crit :
> 
> Soit un userform1 qui contient entre autres 3 labels (1,2,3) ;et un
> commandbutton1 nomm&eacute; "imprime".
> 
> Est-il possible de faire en sorte que si on clique sur commandbutton1 ,on
> lance l'impression  des labels (1,2,3).

1) Pour imprimer la totalit&eacute; du UserForm :

Private Sub CommandButton1_Click()
  Me.PrintForm
End Sub

2) Pour n'imprimer que Label1, Label2 et Label3 en masquant le reste :

Private Sub CommandButton1_Click()
  Dim Ctrl As Control, I As Integer
  With New Collection
    For Each Ctrl In Me.Controls
      If Not (Ctrl Is Label1 Or Ctrl Is Label2 _
      Or Ctrl Is Label3) And Ctrl.Visible Then
        .Add Ctrl
        Ctrl.Visible = False
      End If
    Next Ctrl
    Me.PrintForm
    For I = 1 To .Count
      .Item(I).Visible = True
    Next I
  End With
End Sub

Bonne chance,

Laurent 