Macro d'impression

Bonjour !

Suite à un changement d'imprimante, j'ai des dizaines de fichiers Excel à modifier.

Il existe actuellement une macro pour une sélection de zone puis impression directe,

j'aimerais rajouter une fonction qui imprime sur un bac particulier ou qui ouvre le dialogue d'impression pour choisir le bac.

la macro actuelle :

Range("D13:G17").Select

Range("D13").Activate

Selection.Borders(xlInsideHorizontal).ColorIndex = 0

Selection.Borders(xlInsideVertical).ColorIndex = 0

Selection.Font.ColorIndex = 0

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("I1").Activate

C'est sûrement simple, mais je n'ai pas trouvé...

merci d'avance

Bonjour

Regarde si cela peut t'aider

lorsque tu lance la macro, le choix de l'imprimante s'ouvre et tu peux configurer le bac.

Sub imprime1()
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show

With Range("D13:G17")
    .Borders(xlInsideHorizontal).ColorIndex = 0
    .Borders(xlInsideVertical).ColorIndex = 0
    .Font.ColorIndex = 0
ActiveWindow.SelectedSheets.PrintPreview 'Out Copies:=1, Collate:=True
End With
Range("I1").Activate
End Sub

Super !,

merci beaucoup, c'est nickel

comme il faut prendre l'imprimante par défaut, j'ai mis en remarque la sélection d'imprimante :

Sub imprime1()

'Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show

With Range("D13:G17")

.Borders(xlInsideHorizontal).ColorIndex = 0

.Borders(xlInsideVertical).ColorIndex = 0

.Font.ColorIndex = 0

ActiveWindow.SelectedSheets.PrintPreview 'Out Copies:=1, Collate:=True

End With

Range("I1").Activate

End Sub

avec le Preview on peut changer de tiroir (dommage que l'on puisse pas y donner ce paramètre)

Merci encore pour l'aide