COMANDO ESC/POS IMPRESSORA ELGIN VOX

Citação:

:
Bom dia, alguém teria os comandos ESC/POS para impressora ELGIN VOX para impressão do CÓDIGO DE BARRA E O QRCODE? Desde já agradeço.

      Public Function RetornaCode128C(ByVal Codigo As String) As String

        Dim Temp, Cmd1 As String
        Dim dividido As Boolean
        Dim Largura As Integer
        Dim HRI As Integer
        Dim Altura As Integer

        [ô]Inicia as variáveis
        dividido = False
        Temp = Codigo
        Largura = 2 [ô]Largura do código de barras, pode variar de 2 a 6, sendo 2 a mais fina e 6 a mais grossa
        HRI = 0     [ô]Posição da impressão dos caracteres do código: 0-Não imprime, 1-Acima, 2-Abaixo, 3-Acima e Abaixo
        Altura = 40 [ô]Altura do código de barras, pode variar entre 1 a 255

        Cmd1 = Chr(29) + Chr(119) + Chr(Largura) + Chr(29) + Chr(72) + Chr(HRI) + Chr(29) + Chr(104) + Chr(Altura)

        If ((Temp.Length Mod 2) <> 0) Then [ô]Tamanho impar, precisa inserir um 0 a esquerda, pois o CODE128C tem que ser par
            Temp = [Ô]0[Ô] + Temp
        End If

        If (Temp.Length > 42) Then [ô]Se for maior que 42, divide em 2 códigos
            dividido = True

            Cmd1 = Cmd1 + Chr(29) + Chr(107) + Chr(73) + Chr(((Temp.Length / 2) / 2) + 2) + [Ô]{C[Ô]

            For i As Integer = 0 To (Temp.Length / 2) - 1 Step 2
                Cmd1 = Cmd1 + Chr(Convert.ToInt32(Temp.Substring(i, 2)))
            Next
            Cmd1 = Cmd1 + Chr(10) + Chr(29) + Chr(107) + Chr(73) + Chr(((Temp.Length / 2) / 2) + 2) + [Ô]{C[Ô]
            For i As Integer = (Temp.Length / 2) To Temp.Length - 1 Step 2
                Cmd1 = Cmd1 + Chr(Convert.ToInt32(Temp.Substring(i, 2)))
            Next
            Cmd1 = Cmd1 + Chr(10)
        Else
            dividido = False

            Cmd1 = Chr(29) + Chr(119) + Chr(2) + Chr(29) + Chr(72) + Chr(1)
            Cmd1 = Chr(29) + Chr(107) + Chr(73) + Chr((Temp.Length / 2) + 2) + [Ô]{C[Ô]

            For i As Integer = 0 To Temp.Length - 1 Step 2
                Cmd1 = Cmd1 + Chr(Convert.ToInt32(Temp.Substring(i, 2)))
            Next
            Cmd1 = Cmd1 + Chr(10)
        End If
        Return Cmd1
    End Function
 

Citação:

Amigo a Vox não imprime QRcod