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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 :
7b1d951a-e991-4df9-884c-62148f783d1c@u24g2000prn.googlegroups.com...
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
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
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
BOnjour,
merci je vais tester
On 9 fév, 15:06, "michdenis" <michde...@hotmail.com> 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 :
7b1d951a-e991-4df9-884c-62148f783...@u24g2000prn.googlegroups.com...
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
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