bonjour,
après avoir gaspillé qq centaines de feuilles de papier je me suis décidé de poser la question:
j'ai un fichier avec une cinquantaine d'onglets que je veux imprimer en couleur.
je selectionne tous mes onglets -> imprimer -> proprietes > couleur...il m'imprime en couleur le 1er onglet et les autres en N&B...
j'ai trouvé sur le forum des idées comme
Sub allsheetsprint()
For Each sht In ActiveWorkbook.Sheets
If TypeName(sht) = "Worksheet" Then
sht.PageSetup.BlackAndWhite = False
sht.PrintOut
End If
Next sht
End Sub
mais ça ne marche toujours pas...
y a t il une solution?
merci d'avance
après avoir gaspillé qq centaines de feuilles de papier je me suis décidé de poser la question:
j'ai un fichier avec une cinquantaine d'onglets que je veux imprimer en couleur.
je selectionne tous mes onglets -> imprimer -> proprietes > couleur...il m'imprime en couleur le 1er onglet et les autres en N&B...
j'ai trouvé sur le forum des idées comme
Sub allsheetsprint()
For Each sht In ActiveWorkbook.Sheets
If TypeName(sht) = "Worksheet" Then
sht.PageSetup.BlackAndWhite = False
sht.PrintOut
End If
Next sht
End Sub
mais ça ne marche toujours pas...
y a t il une solution?
merci d'avance