chinel
XLDnaute Impliqué
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 !
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 !