Untitled

Public Sub Imprimir_ZPL_COM(ByVal cadena As String, ByVal PORT As String)
        Dim xlb As String
        Try
            Dim puerta_serial As System.IO.Ports.SerialPort
            puerta_serial = New System.IO.Ports.SerialPort
            puerta_serial.PortName = PORT
            puerta_serial.BaudRate = 9600
            puerta_serial.DataBits = 8
            puerta_serial.Parity = IO.Ports.Parity.None
            puerta_serial.StopBits = IO.Ports.StopBits.One
            puerta_serial.WriteTimeout = 4000

            If puerta_serial.IsOpen Then
                puerta_serial.Close()
            End If
            puerta_serial.Open()


            xlb = "^XA^PRC^LH0,0^FS^LL416^MD0^MNY^LH0,0^FS" '  Encabezado
            '380
            xlb = xlb & "^BY2,2.0^FO323,100^BCN,100,Y,N,N^FR^FD>" & cadena & "^FS" ' Imprime codigo de barras


            xlb = xlb & "^PQ1^XZ"
            xlb = Replace(xlb, "Ñ", Chr(165))
            xlb = Replace(xlb, "ñ", Chr(164))

            puerta_serial.WriteLine(xlb)
            puerta_serial.Close()

        Catch ex As IO.IOException
            MessageBox.Show("Erro::" & ex.Message, "ERRO", MessageBoxButtons.OK)

        End Try
    End Sub