Programmer une Impression Couleur (macro)
Mon imprimante est configurée par défaut sur "Noir et Blanc"
Dans ma macro je pensais avoir le bon code pour déclencher la couleur...mais ça marche pas.
Que changer dans ce code :
(Il y a aussi une sélection de zone à imprimer visible)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| (...)
Dim derligne As Long
derligne = Range("A" & Rows.Count).End(xlUp).Row
Dim r As Range
With ActiveSheet
Set r = Range(Cells(1, 1), Cells(derligne, "J"))
r.Borders.LineStyle = xlContinuous
r.Borders.Weight = xlThin
End With
With ActiveSheet.PageSetup
.PrintArea = ("A1:J" & derligne)
.BlackAndWhite = False
End With
ActiveSheet.PrintOut
End Sub |
Merci beaucoup, je souhaiterais intégrer le code manquant plutôt que de tout refaire
