Une macro ouvrant la fenêtre " Imprimer "

**brunounours** · 15/11/2011, 10h24

Bonjour,

Je souhaite imprimer un Userform à l'aide d'un bouton.

J'utilise le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton2_Click()
UserFormVerificacion2.PrintForm
End Sub

Mon problème, est qu'il me lance l'impression directement sur l'imprimante par défaut.
Je souhaiterai qu'il m'ouvre la fenêtre "imprimer" pour par exemple pouvoir sélectionner l'imprimante ou éventuellement imprimer un PDF.

Apres mes recherche j'ai essayé cette solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca m'ouvre bien la boite de dialogue pour selectioner l'imprimante, mais quand je choisis n'importe quelle imprimante ca n'effectue pas le changement et continue de l'envoyer sur l'imprimante par defaut initiale.

Auriez vous une alternative?

Par ailleurs j’aimerai aussi pourvoir choisir d’ouvrir un aperçu avant impression avant d’imprimer.
Merci d'avance pour vos réponses.

Bruno.

**jfontaine** · 15/11/2011, 10h50

Bonjour,

Et avec le code ci dessous?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogPrint).Show

**brunounours** · 15/11/2011, 11h06

Merci de ta rèponse mais ce code m'imprime ma feuille et pas mon UserForm.

Autre idèe?

Bruno

**jfontaine** · 15/11/2011, 11h22

Quand la fenêtre s'ouvre, choisi une imprimante et sort en cliquant sur Fermer.
Est ce qu'ensuite, l'impression se passe sur la bonne imprimante?

**brunounours** · 15/11/2011, 11h45

Marche toujours pas:

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

Si je clique sur fermer, rien ne se passe
Si je clique sur ok il imprime ma feuille dans l'imprimante choisie pas l'userform :-(

et avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogPrint).Show
UserFormVerificacion2.PrintForm
End Sub

Si je clique sur fermer, il imprime l'userform sur l'imprimante par defaut initiale :-(

Si je clique sur OK, il imprime l'userform sur l'imprimante par defaut initiale :-(
et il imprime ma feuille dans l'imprimante choisie pas l'userform :-(