ZPL Befehl für löschen senden

  • VB.NET

    ZPL Befehl für löschen senden

    Hallo

    Kennt sich jemand aus Zebra Drucker aus und ZPL (Zebra Programming Language) ?

    Ich möchte über Button ein lösch Befehl für Löschen des Druckerspeicher senden an Zebra Drucker über Netzwerk.
    Ich habe folgende Code im Netz gefunden und bei mir eingefügt.
    Aber das senden des Klappt nicht immer,
    Wenn an den Drucker neue Etiketten (ca.30) stück gesendet wurden aber noch kein abgerufen wurden.
    Oder wenn ich 2- oder drei mal hintereinander auf Button geklickt habe, kommt Meldung das der Drucker nicht erreichbar ist ob wohl der Drucker Online ist.

    VB.NET-Quellcode

    1. Public Class Etiketten
    3. 'löschbefehl für den Versandetikettirer
    5. Private Sub btn_loeschen_Click(sender As Object, e As EventArgs) Handles btn_loeschen.Click
    7. 'Status wird angezeigt
    8. status_3.Text = "Befehl wurde gesendet"
    11. Dim ipAddress As String = "192.168.2.160" 'etikettierer
    12. Dim port As Integer = 9100 'Port
    13. Dim ZPLString As String = "^XA~JA^XZ" 'ZPL Befehl
    15. Try
    17. Dim client As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient()
    18. client.Connect(ipAddress, port)
    19. Dim writer As System.IO.StreamWriter = New System.IO.StreamWriter(client.GetStream())
    20. writer.Write(ZPLString)
    21. writer.Flush()
    22. writer.Close()
    23. client.Close()
    24. Catch ex As Exception
    26. MessageBox.Show(ex.Message, "Verbindung Fehler")
    27. Application.Exit()
    28. End Try
    30. End Sub
    32. End Class

Facebook
Telefonspende