IMPRIMIR NA ZEBRA TLP2844 PELO VB6

ADEMIRDS 30/07/2010 09:08:52
#348879

Bom dia a todos.
Estou precisando imprimir etiquetas na impressora zebra TLP2844 e estou enfrentando dificuldades.
Gerei a etiqueta no programa ZebraDesigner 2, gerei em arquivo e depois tentei icluir o seguinte codigo no programa:

Private Sub Imprime_Brinco_Zebra()
On Error GoTo Rot_Erros
Dim strCodigo As String, strDescr As String
Dim TotCar As Long, Qtd As Long, Ind As Long, Col As Byte

Open [Ô]LPT1[Ô] For Output As #1
Print #1, [Ô]I8 , A, 1[Ô]
Print #1, [Ô]Q112 , 24[Ô]
Print #1, [Ô]q831[Ô]
Print #1, [Ô]rN[Ô]
Print #1, [Ô]S4[Ô]
Print #1, [Ô]D7[Ô]
Print #1, [Ô]ZT[Ô]
Print #1, [Ô]JF[Ô]
Print #1, [Ô]OD[Ô]
Print #1, [Ô]R92 , 0[Ô]
Print #1, [Ô]f100[Ô]
Print #1, [Ô]N[Ô]
Print #1, [Ô]A612,95,2,4,1,1,N,BBX819[Ô]
Print #1, [Ô]B602,65,2,3,1,3,40,B,BBX818[Ô]
Print #1, [Ô]P1[Ô]
Close #1
Exit Sub
Rot_Erros:
Call Trata_Erro([Ô]frmImpEtiqueta6[Ô], [Ô]Imprime_Brinco_Argox[Ô])
End Sub

Porem quando envio esse código a impressora imprime etiquetas em branco ao invés de convertê-los para codigo de barras e letras.
Se envio do programa ZebraDesigner 2 saí corretamente.

Se alguem puder me ajudar, eu preciso entregar esse projeto e só dependo da solução desse problema.