impression en couleur sur prn par defaut en N&B

Le
sleg
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #23105931
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
sleg
Le #23108651
BOnjour,

merci je vais tester

On 9 fév, 15:06, "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
Publicité
Poster une réponse
Anonyme