Bonjour,

Je souhaite automatiser l'impression en couleur de graphique. j'arrive à automatiser l'impression mais comme l'imprimante est paramétrée par défaut en noir et blanc, mes éditions ne sont pas en couleur. Je recherche donc un code VB qui permet de modifier ce paramètre avant de lancer l'édition et de le remettre après l'édition.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim graph As ChartObject
PasserACCUEILCouleur
For Each graph In ActiveSheet.ChartObjects
graph.Activate
ActiveChart.ChartArea.Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="\\Mon_imprimante_couleur", Collate:=True
Next
Merci, de votre aide cordialement