Imprimer 2 copies haute qualité et brouillon

Bonjour,

J'ai créé un bouton "imprimer" dans ma feuille excel avec le code ci-dessous mais j'aimerais savoir si c'est possible d'imprimer 1 copie en mode haute qualité et 1 copie en mode brouillon.

Sub Imprimer()

'

' Imprimer Macro

'

'

ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _

IgnorePrintAreas:=False

End Sub

Merci pour votre aide

Bonjour

A voir avec PrintQuality sans être sur du résultat

Brouillon

Me.PageSetup.PrintQuality = Array(300, 300)

Moyenne Qualité

Me.PageSetup.PrintQuality = Array(600, 600)

Haute Qualité

Me.PageSetup.PrintQuality = Array(1200, 1200)

le nombre dépend de ton imprimante

Bonjour à tous,

Une autre version :

Sub Imprimer()

   ActiveSheet.PageSetup.Draft = False  ' normal
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

   ActiveSheet.PageSetup.Draft = True  ' brouillon
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

ric

M12 a écrit :

Bonjour

A voir avec PrintQuality sans être sur du résultat

Brouillon

Me.PageSetup.PrintQuality = Array(300, 300)

Moyenne Qualité

Me.PageSetup.PrintQuality = Array(600, 600)

Haute Qualité

Me.PageSetup.PrintQuality = Array(1200, 1200)

le nombre dépend de ton imprimante

Je reçois une erreur à "Me"

Mais aussi à quel endroit de mon code initial je dois l'insérer?

ric a écrit :

Bonjour à tous,

Une autre version :

Sub Imprimer()

   ActiveSheet.PageSetup.Draft = False  ' normal
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

   ActiveSheet.PageSetup.Draft = True  ' brouillon
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

ric

Bonjour Ric,

Ton code fonctionne bien pour le haute qualité, par contre pour le mode brouillon , les images et tableau(bordures; fond des cases, …) ne s'impriment pas j'obtiens juste du texte

Bonjour à tous,

Pour le Me. > c'est utilisé dans les userform > si erreur, supprime-les tout simplement.

Pour mon code brouillon, j'ai utilisé l'option "Brouillon (Draft)" de la Mise en page.

Je n'ai plus d'imprimante papier, seulement une .pdf.

Je n'ai donc pas pu tester plus avant.

Le code de M12 (sans les Me.) devrait fonctionner correctement.

ric