Impression 2 exemplaires dont 1 couleur

Question

J'ai récupéré une macro sur Excel malin, que j'ai adapté pour qu'il en imprime 2 exemplaires en visant la cellule A1 : Sub Impression2exemplaire() 'par Excel-Malin.com ( https://excel-malin.com ) Dim FichierAImprimer As Variant FichierAImprimer = Range("A1").Text '&lt;-- chemin complet du fichier à imprimer CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print") CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print") End Sub Ca fonctionne. Mais j'aimerais savoir maintenant s'il est possible de l'adapter pour qu'il imprime 1 exemplaire en couleur recto/verso ? Merci par avance, Bien cordialement...

Parrish · Answer

Bonjour,

avec une recherche internet voici ce que j'ai trouvé, je ne sais pas du tout si cela fonctionne

Sub Impression2exemplaire()
'par Excel-Malin.com ( https://excel-malin.com )
Dim FichierAImprimer As Variant

FichierAImprimer = Range("A1").Text '<-- chemin complet du fichier à imprimer

    PageSetup.BlackAndWhite = True
    CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
    PageSetup.BlackAndWhite = False
    CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")

End Sub