Discussion :

[Anecdote76]

Bonjour,

Le nouveau paramétrage de l'imprimante réseau est noir et blanc-recto verso.
Hors j'ai de nombreux fichiers contenant chacun de nombreux onglets qui doivent être imprimés en couleur et recto.
Je voudrais éviter d'aller modifier les paramêtres d'impression de chaque onglet.

J'ai essayé avec cette macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Couleuronglet()
 
vOnglet = ActiveWorkbook.Sheets.Count
i = 1
Sheets(i).Select
For i = 1 To vOnglet
    Sheets(i).Select
 ActiveSheet.PageSetup.BlackAndWhite = False
Next
End Sub

Mais cela ne fonctionne pas, et je n'ai pas trouvé pour annuler le recto verso.

Quelqu'un peut-il m'aider ?

Merci,
Anecdote

[78chris]

Bonjour

Ces paramètres sont ceux de l'imprimante, non d'Excel ou des onglets : il faut modifier les paramètres de l'imprimante.

Pas évident en VBA... mais fais une recherche sur le forum.

[kiki29]

Salut, l'enregistreur de macros devrait t'apporter la syntaxe correcte pour ton imprimante