imprimer un userform

[Delors]

slt a vous. en fait j'aimerais pouvoir imprimer mon userform nommé "Details" en utilisant la function :

Private Sub PrintButton_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Details.PrintForm
End Sub

le seul probleme est qu'en fait, lorsque la fenetre de selection d'imprimantes s'affiche, et que je selectionne une autre imprimante hors mis celle par defaut sur mon systeme, l'impression s'effectue uniquement sur celle par defaut.

Je ne sais donc pas comment comment palier a cela.

Si quelqu'un veut bien m'aider svp.

Merci d'avance

 

[Etienne2323]

Re : imprimer un userform

Salut Delors,
vous devriez essayer de remplacer votre

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Details.PrintForm

Par ceci :

If Application.Dialogs(xlDialogPrint).Show = True Then Details.PrintForm

À tester.

Au plaisir de vous relire pour plus !

Cordialement,

Étienne

 

[Delors]

Re : imprimer un userform

Merci beaucoup Etienne ca marche vraiment !

Suis tres content. merci encore. 😎