macro imprimer

[francois]

bjrs à tout le monde

actuellement j'utilise cette macro pour imprimer certaines feuilles preselectionnées d'un classeur (10 sur 60 feuil)
ma question est: quelle ligne(s) de macro me permetrais d'imprimer ces feuilles en niveaux de gris et non pas en couleur.

merci et bonne journée
francoisMEL

Sub Imprimer_Balance()
retour = MsgBox("Vous-êtes sur le point d' imprimer la feuille de BALANCE HORAIRE, êtes-vous sûr de vouloir continuer ? ", 4 + vbInformation, " Impression Balance ")
If retour = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
If Feuille.Range("D1").Value = "B" Then
Feuille.PrintOut
End If
Next
End If
End Sub

 

[@+Thierry]

Tiens j'avais pas vu ce fil le 31.....

tu as une réponse dans celui là :
<http://www.excel-downloads.com/html/French/forum/messages/1_12297_12297.htm>

@+Thierry