Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

impression en couleur sur prn par defaut en N&B

2 réponses
Avatar
sleg
Bonjour,

je cherche a imprimer en couleur sur une imprimante configur=E9e en N&B
par defaut. ne ne peu pas creer une autre imprimante en couleur dans
le panneau de config car elle repasse automatiquement en N&B au
demarrage suivant.

j'utilise le code ( trouv=E9 ici grand merci) ci-dessous pour imprimer
mais impossible de modifier l'imprimante en vba auriez vous une id=E9e ?

merci de votre aide.


Sub Imprime_Couleur_JH()
Application.ScreenUpdating =3D False
Dim Imprimante As String
Imprimante =3D Workbooks("Personal.xlsb").Sheets("Feuil1").
[C3].Value
'Modifie l'imprimante
Dim Defaut_Impr
Defaut_Impr =3D Application.ActivePrinter
Application.ActivePrinter =3D Imprimante
'Imprime
ActiveSheet.PrintOut Copies:=3D1, Collate:=3DTrue
'Remet l'imprimante par d=E9faut
Application.ActivePrinter =3D Defaut_Impr
End Sub

2 réponses

Avatar
michdenis
Bonjour,

Si tu as une imprimante couleur :

Quand tu lances cette macro, toutes les feuilles sélectionnées
s'imprimeront en couleur. L'objet "PageSetUp" contient beaucoup
d'autres propriétés que tu peux explorer.

'--------------------------------
Sub test()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.BlackAndWhite = False
End With
End With
Next
End Sub
'--------------------------------


MichD
--------------------------------------------
"sleg" a écrit dans le message de groupe de discussion :


Bonjour,

je cherche a imprimer en couleur sur une imprimante configurée en N&B
par defaut. ne ne peu pas creer une autre imprimante en couleur dans
le panneau de config car elle repasse automatiquement en N&B au
demarrage suivant.

j'utilise le code ( trouvé ici grand merci) ci-dessous pour imprimer
mais impossible de modifier l'imprimante en vba auriez vous une idée ?

merci de votre aide.


Sub Imprime_Couleur_JH()
Application.ScreenUpdating = False
Dim Imprimante As String
Imprimante = Workbooks("Personal.xlsb").Sheets("Feuil1").
[C3].Value
'Modifie l'imprimante
Dim Defaut_Impr
Defaut_Impr = Application.ActivePrinter
Application.ActivePrinter = Imprimante
'Imprime
ActiveSheet.PrintOut Copies:=1, Collate:=True
'Remet l'imprimante par défaut
Application.ActivePrinter = Defaut_Impr
End Sub
Avatar
sleg
BOnjour,

merci je vais tester

On 9 fév, 15:06, "michdenis" wrote:
Bonjour,

Si tu as une imprimante couleur :

Quand tu lances cette macro, toutes les feuilles sélectionnées
s'imprimeront en couleur. L'objet "PageSetUp" contient beaucoup
d'autres propriétés que tu peux explorer.

'--------------------------------
Sub test()
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
    With Sh
       With .PageSetup
            .BlackAndWhite = False
        End With
    End With
Next
End Sub
'--------------------------------

MichD
--------------------------------------------
"sleg"  a écrit dans le message de groupe de discussion :


Bonjour,

je cherche a imprimer en couleur sur une imprimante configurée en N&B
par defaut. ne ne peu pas creer une autre imprimante en couleur dans
le panneau de config car elle repasse automatiquement en N&B au
demarrage suivant.

j'utilise le code ( trouvé ici grand merci) ci-dessous pour imprimer
mais impossible de modifier l'imprimante en vba auriez vous une idée ?

merci de votre aide.

Sub Imprime_Couleur_JH()
     Application.ScreenUpdating = False
      Dim Imprimante As String
     Imprimante = Workbooks("Personal.xlsb").Sheets("Feuil1").
[C3].Value
         'Modifie l'imprimante
     Dim Defaut_Impr
     Defaut_Impr = Application.ActivePrinter
     Application.ActivePrinter = Imprimante
         'Imprime
     ActiveSheet.PrintOut Copies:=1, Collate:=True
         'Remet l'imprimante par défaut
     Application.ActivePrinter = Defaut_Impr
End Sub