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