Discussion :

[niboTD]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[leblesois]

Bonjour,

Pourquoi ne pas créer une deuxième imprimante version "couleur" (panneau de configuration) et dans ta macro, tu sélectionnes la bonne.