imprimer en niveau de gris

[francois]

bjrs à tout le monde et meilleur voeux §§

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]

Salut François bonne année à toi aussi,

Je pense qu'en modifiant ton code comme çà tu devrais avoir le résultat escompté...

If Feuille.Range("D1").Value = "B" Then
With Feuille.PageSetup
.BlackAndWhite = True
End With
Feuille.PrintOut
End If

bonne soirée
@+Thierry

 

[francois]

bjr @+thierry
je vais essayer et je te tiens au courant
merci pour tout!
francoisMEL

 

[francois]

Et me revoila @+Thierry
et oui une fois de plus un problème solutionné avec
With Feuille.PageSetup
.BlackAndWhite = True
End With
merci beaucoup et bonne journée
FrancoisMEL

 

[STéphane]

tiens c'était dans la mise en page ;-)

 

[Eddy]

Je voudrai savoir comment je peux créer un bouton pour imprimer sur imprimante spécifique