Impression sur Zebra

Bonjour,

J'essai d'imprimer du code barre sur une Zebra brancher en USB, avec un pilote GenericTextOnly (astuce trouver sur le net)

Pour l'instant j'ai ce code mais qui me renvois l'erreur "incompatibilité de type " avec stprinter en surbrillance au niveau du 1er stPrinter.print

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim stPrinter As String Dim stPrinter As String   Application.ActivePrinter = "Zebra sur Ne01:" stPrinter = Application.ActivePrinter stPrinter.Print "Q117,34" stPrinter.Print "q320" stPrinter.Print "N" stPrinter.Print "B25,0,0,1,3,2,55,B,'4545002'" stPrinter.Print "A25,80,0,4,1,1,N,'DUPONT J'" stPrinter.Print "P1,1"   stPrinter.EndDoc

---

merci d'avance de votre aide