Imprimir en impresora de etiquetas

[pempas]

Hola a todo el mundo,

Estamos desarrollando un software que permite imprimir en impresoras de etiquetas, cuando le mando la impresión por LPT1, no hay problema porque le envío los códigos de escape a la impresora y lo hace correctamente.

Pero cuando intento imprimir en una impresora cargada en Windows, me imprime los códigos tal cual, me explico.

Estos son los códigos:

N
q593
Q414,36
JB
D10
S3
OD
B30,24,0,1,3,6,75,B,"$CBARRAS"
A33,162,0,3,1,1,N,"$PC"
A33,210,0,2,1,1,N,"Lote:"
A117,210,0,2,1,1,N,"$LOTE"
A33,252,0,2,1,1,N,"Fecha:"
A213,252,0,2,1,1,N,"$FECHA"
A33,297,0,5,1,1,N,"$T"
P1,1

Se supone que esto:

B30,24,0,1,3,6,75,B,"$CBARRAS"

Me debería devolver un código de barras en la impresora, pero lo imprime tal cual.

¿Cómo puedo hacerlo?, espero que haya algún lumbreras que me pueda ayudar!!

Gracias desde ya!!

[pempas]

Al parecer el método, Printer.Print envía el texto como texto plano, por lo que esto no me interesa.

¿Alguien sabe alguna API para enviar textos a alguna impresora de Windows?

Muchas gracias.

[josepb]

Para hacer lo que tu quieres, yo no utilizo impresora de Windows (pasaría a través del driver). Prueba este código:

Dim liLPT As Integer
liLPT = FreeFile
Open "LPT1:" For Output As #liLPT
Print #liLPT, "CODIGOS1"
Print #liLPT, "CODIGOS2"
Print #liLPT, "CODIGOS3"
Print #liLPT, "CODIGOS4"
'...
Close #liLPT

Suerte.

[pempas]

gracias josepb,

pero el problema es que necesito imprimir en un puerto de red, en local, mediante el LPT1, lo hace sin problemas, pero cuando intento abrir uno de red, no funciona.