Macro: imprimession

[Cyril]

Salut à tous. Un petit coup de pouce serait le bien venu...
Je souhaiterai intégrer une macro dans un programme excel pour imprimer la page en cour sur une imprimante spécifique (différente de l'imprimante par défaut). Es ce possible? et comment fait on?
Merci d'avance. Cyril

 

[sousou]

Bonjour

Utilise application.activeprinter
Cette méthode te permet de désigner l'imprimante.

 

[Creepy]

Bonjour à toutes & tous,

Pour choisir l'imprimante tu tapes :

Application.actiprinter="nomdelimprimante"

Le nom de l'imprimante est exactement celui qui apparait dans ta fenêtre impression.
Pour le reste avec l'enregistreur de macro tu aura ce qu'il te faut

Pds : A la fin de ta macro n'oublie pas de remettre la bonne imprimante avec la même commande.

++

Creepy

 

[Cyril]

Merci de ton aide mais cela ne fonctionne toujours pas . Voici ce que j'ai taper:

Private Sub CommandButton2_Click()
Application.actiprinter = "LJ8150"
End Sub

 

[michel]

bonjour Cyril , Sousou et Creepy


il manque peut etre quelque chose : un exemple ….

Private Sub CommandButton2_Click()
Application.actiprinter = "LJ8150 sur LPT1:"
End Sub


L'ajout "Sur LPT1:" n'est qu'un exemple : si tu ne connais pas le nom exact des imprimantes et des ports , tu peux faire un test manuel de changement d'imprimante par défaut , en utilisant l'enregisteur de macro .Cela devrait te permettre d'obtenir toutes informations complémentaires


ci-joint un exemple qui remplace temporairement l'imprimante par défaut , puis réinitialise l'imprimate d'origine une fois le travail terminé


Sub ChangementTemporaireImprimante()
Dim Variable_Imp As String

Variable_Imp = Application.ActivePrinter 'mise en memoire de l'imprimante par defaut
Application.ActivePrinter = "hp deskjet 930c series sur LPT1:" 'parametrer la nouvelle imprimante à utiliser
ActiveSheet.PrintOut 'imprimer
Application.ActivePrinter = Variable_Imp ' reinitialiser l'imprimante pas défaut

End Sub


bonne soiree
MichelXld