Macro permettant d'imprimer un ticket sur une zebra zt230 via IP

Question

Bonjour,

Je viens vers vous aujourd'hui car je me suis lancé un petit défi personnel qui me s'simplifierait la vie dans une de mes tâches quotidienne, imprimer des tickets sur une imprimante ZEBRA zt230 via IP (Plus facile par IP pour ne pas avoir une câble de 100m de long).

J'ai donc commencé par ping l'imprimante avant toute chose pour voir si mon pc la retrouvait, en effet il l'a trouvé donc bonne nouvelle !

Cependant je n'ai trouvé qu'un seul code un peu maigre permettant d'imprimer un ticket sur une zt230 via ip et cela ne fonctionne pas tellement, en faite j'ai un message d'erreur qui s'affiche.
Donc ma question est la suivante, est-ce que l'un d'entre vous aurait déjà fait quelque chose de similaire, ou bien pourrait m'aider vis à vis du code que j'ai trouvé ?

Je vous laisse le code ci-dessous :

Sub ImprimerZPLParIP()
    Dim zplCommand As String
    Dim printerIP As String
    Dim printerPort As Integer
    Dim ws As Object

    ' Spécifiez la commande ZPL que vous souhaitez imprimer
    zplCommand = "^XA^FO100,100^ADN,36,20^FDHello, Zebra^FS^XZ"

    ' Spécifiez l'adresse IP de l'imprimante Zebra et le port (par défaut 9100)
    printerIP = "172.18.214.55"
    printerPort = 9100

    ' Créez un objet Winsock
    Set ws = CreateObject("MSWinsock.Winsock")

    ' Établissez une connexion TCP avec l'imprimante
    ws.RemoteHost = printerIP
    ws.RemotePort = printerPort
    ws.Connect

    ' Attendez que la connexion soit établie
    Do Until ws.State = 7 ' 7 signifie que la connexion est établie
        DoEvents
    Loop

    ' Envoyez la commande ZPL à l'imprimante
    ws.SendData zplCommand

    ' Attendez un court instant pour permettre à l'imprimante de traiter la commande
    Application.Wait Now + TimeValue("00:00:01")

    ' Fermez la connexion
    ws.Close
End Sub

Bien évidemment j'ai cette erreur qui s'affiche

Et le débogage me pointe cette ligne :

' Créez un objet Winsock
 Set ws = CreateObject("MSWinsock.Winsock")

En vous remerciant par avance du temps alloué à mon sujet.
Bonne journée à vous !
Cordialement
MikaG

Invité · Accepted Answer

Re, Du coup avez-vous essayez les 2 codes donnés et quels sont les problèmes Si vous ne nous en dites pas plus, comment voulez-vous qu'on puisse vous aider !? A+...

Invité · Answer

Je ne connais absolument pas la ZEBRA ZT230, mais avez-vous essayé de chercher sur internet En cherchant https://www.google.com/search?q=excel+vba+print+to+zebra+printer Voici ce que j'ai trouvé https://supportcommunity.zebra.com/s/article/000013614?language=fr A+...