Imprimer UserForm [VBA]

[ljoue]

Bonjour à tous,

Quel est le code en VBA pour imprimer l'UserForm qui est afficher à l'écran

Nom de l'UserForm : Consultation

Nom Bouton imprimer : Imprimer

----->

Private Sub Imprimer_Click()
.
.
.
.
End Sub


Merci d'avance

Cordialement,
Laurent

 

[ljoue]

En fait je crois avoir trouvé la réponse dans un autre post :

Private Sub Imprimer_Click()

Application.ScreenUpdating = False

Consultation.ActiveSheet.UsedRange.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveSheet.PrintOut
ActiveWorkbook.Close False

Application.ScreenUpdating = True

End Sub

faut que je test....

 

[ljoue]

bon ben ça marche pas...


....dans l'attente de votre aide...

Merci

 

[MichelXld]

bonjour

tu peux tester

UserForm1.PrintForm


ou pour ton exemple

Consultation.PrintForm



bonne journée
MichelXld

 

[ljoue]

Salut Michel,

C'est exactement ce que je voulais...

Merci pour ton aide..

Bonne journée
@++