macro imprimer sans couleur

[chinel]

Salut tout le monde !

voici mon code mais je voudrais imprimer sans les couleurs (noir et blanc)

Sub Imp_XCopies()

rep = InputBox("Combien de copie ?", , 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
Range("A4:M45").Select
With Selection
.PrintOut Copies:=rep
End With

End Sub

Merci de votre aide !

 

[MichelXld]

Re : macro imprimer sans couleur

bonjour

tu peux utiliser

ActiveSheet.PageSetup.BlackAndWhite = True

bone journée
michel

 

[chinel]

Re : macro imprimer sans couleur

Merci Mich. !