Impression d'un multipage-cas traité par @+Thierry

[nicole]

Bonjour le forum,

j'avais sollicité cotre aide pour concevoir un formulaire multipage et ai reçu des réponses avisées de plusieurs personnes notamment de @+Thierry.

J'ai donc un multipage qui fonctionne correctement ( affichage des données des différents onglets et possibilité de visualiser, modifier ou enregistrer).

Mon pb est le suivant, j'ai un bouton impression et suivant que le checkbox est coché ou pas il prend le caption:en un seul formulaire ou des onglets séparés. J'ai donc la possibilité d'imprimer le multipage sur une feuille ou d'avaoir le nb de feuilles correspondant aux nb d'onglets. J'arrive à imprimer dans ce 2ème cas mais pas à imprimer 1 seule feuille récapitulative. Peut-être pourriez-vous m'aider.
Mon code

Private Sub buttonImprimer_Click()

Dim CTRL As Control
Dim X As Byte
If Me.CheckBoxImprimer = False Then
For X = 0 To 6
With UserForm5
.MultiPage1.Value = X
.PrintForm
End With
Next
Else
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.ComboBox Then
Range(CTRL.Name) = CTRL.Value
End If
Next CTRL
With Sheets("Form")
.Visible = True
.PrintOut
.Visible = False
End With
End If

end sub

Merci et pardon d'avoir été aussi longue.

 

[nicole]

Bonjour à tous,

je suis toujours en attente d'une réponse car je n'ai pas trouvé la faille dans le code d'impression.

Merci d'avance

Nicole