Discussion :

[MartinJ]

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 :

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

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.

[a_diard]

Bonjour

J'ai ajouté :

Code :

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

 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.

[MartinJ]

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.