Souci macro choix imprimante par défaut

Fermé
sk53 Messages postés 227 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 5 novembre 2015 - 6 sept. 2012 à 16:58
 sk53 - 6 sept. 2012 à 22:26
Bonjour,

je souhaite faire une macro associée à un bouton qui permettrait d'imprimer les feuilles choisies sur une imprimante choisie, peu importe l'imprimante par défaut définie sur le poste.

J'ai développé la macro suivante qui ne fonctionne pas et qui imprime sur l'imprimante par défaut du poste.

Je ne vois pas ou le problème.

Merci d'avance


'Macro pour impression sur la couleur
Sub IMPRESSION()
Dim TempPrinter As String
Dim Printerdefault As String

Printerdefault = ActivePrinter ' mémorise le nom de l'imprimante par défaut
TempPrinter = "[URL=mon_url]" 'imprimante couleur 2
TempPrinter = Application.ActivePrinter ' on active l'imprimante

Sheets("feuille1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("feuille2").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Application.ActivePrinter = Printerdefault 'on rétablit l'imprimante par défaut
End Sub


Merci de ne pas me répondre remplace mon_url par l'adresse de ton imprimante...


A voir également:

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 763
6 sept. 2012 à 22:18
Bonjour

Au lieu de :
TempPrinter = Application.ActivePrinter ' on active l'imprimante

Ecrire
Application.ActivePrinter = TempPrinter ' on active l'imprimante
0
Oui elle est comme ça, j'ai merdé dans le recopiage...
0