J'utilise ce code pour imprimer: FEUIL1.Range("A1").PrintOut ActivePrinter:="EPSON Printer"
Pour changer d'imprimante, je dois changé le nom de l'imprimante qui est dans le code
Y aurait il un moyen pour que le nom de l'imprimante soit stocké dans une cellule, pour que je puisse changer le nom facilement sans devoir toucher au code
Quelque chose dans ce genre FEUIL1.Range("A1").PrintOut ActivePrinter:="feuil5.range("D10")"
Et dans la cellule D10 j'aurais le nom de l'imprimante : EPSON Printer
Comme c'est pas toujour simple ces histoires d'impression, voici déjà pour commencer 2 codes à tester pour avoir le bon nom de l'imprimante:
Code:
Sub Nom_Imprimante_Active()
MsgBox "The name of the active printer is " & ActivePrinter
Cells(1, 2) = ActivePrinter
End Sub
Sub Imprimante_Active_A1()
Application.ActivePrinter = Range("A1").Value
End Sub
Juste pour le plaisir de sortir mon String
Code vba: Sub TestPRINT() Dim NomImprim AsString
NomImprim=Sheets("feuil5").Range("D10").Text
FEUIL1.Range("A1").PrintOut ActivePrinter:=NomImprim EndSub