Config. impression err.

Bonjour,

En parcourant le forum, j'ai récupéré une macro pour imprimer via un bouton. Mon souci est le suivant :

La fenetre de dialogue, lors de la selection de l'imprimante à un bouton configurer... qui reste sur l'imprimante par défaut quelque soit mon choix.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub imp_selec()   Dim vbPrinter vbPrinter = Application.Dialogs(xlDialogPrinterSetup).Show If vbPrinter = True Then Else: Exit Sub End If   Selection.PrintOut , Collate:=True   End Sub

---

Je voudrais juste pouvoir choisir le format de mon impression en fonction de mon imprimante A4 (Imprimante à l'étage), A3 (Imprimante au RDC)

Merci d'avance pour vos réponses.

Bonjour

J'ai ajouté :

Code:

---

MsgBox Application.Dialogs(xlDialogPrint).Parent.ActivePrinter

---

après le end if

pour vérifier le changement d'imprimante.

Chez moi le changement d'imprimante se fait.

Merci pour la réponse, mais j'ai toujours le même problème.

Il laisse la fenetre de paramétrage de l'imprimante par défaut quand je choisis l'autre imprimante.