Discussion :

[psykodumarteau]

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

[casavba]

Il y a l'objet " PageSetup" et la Proprièté " BlackAndWhite"

Exemple :

Code :

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

1
2
3
4
5
With ActiveSheet        
.PageSetup.BlackAndWhite = True 'parametrage en couleur
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation en Noir et Blanc
End With

Adaptes à ton cas.
++

[psykodumarteau]

Bonjour,

Merci pour ton code mais le probleme ne vient pas du paramétrage de la feuille mais du paramétrage de l'imprimante. C'est bien une imprimante couleur mais, par soucis d'économie, elle est paramétrée par défaut en noir et blanc. il faut donc, quand je veux imprimer en couleur, faire fichier/imprimer/Propriétés... et décocher l'option "imprimer en niveau de gris".

C'est cette manipulation qu'il faut que j'automatise.

J'ai quand essayer ton code, mais ça imprime toujours en noir et blanc

Cordialement

[ucfoutu]

Bonjour,

j'ai récemment répondu, pour un problème similaire : utilisation de la fonction SetPrinter de la librairie Winspool.drv de l'Api de Windows. C'est le plus siur !

[psykodumarteau]

Bonjour,

J'ai regardé l'exemple de l'autre post. Je ne sais pas encore comment je vais n'en sortir avec mais ça a l'air de pouvoir résoudre mon problème.

Merci, Cordialement