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