Cobol Foro - [Sintaxis] Impresora zebra / sato 420 epl2

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Impresora zebra / sato 420 epl2 (https://www.cobolforo.es/showthread.php?t=798)

Impresora zebra / sato 420 epl2

Hola a todos, alguien imprimiendo en una zebra del tipo 2844 o similar desde power 7, arme un programita en vb6 que envía al com1 y lo llamaba desde pw7 depues de grabar un archivo con los datos a imprimir, pero en win10 no me funciona mas necesito imprimir directo desde power, alguna dll o idea de como lo puedo hacer?.
Muchas gracias Saludos
Codigo en vb6

Código VB:

Private Sub Command2_Click()
   Open "C:\Fpw\etiquetas.dat" For Input As #2
     Input #2, barras, cantidad, lote
   Close #2
SerialCom.Output = Chr(10) & "N" & Chr(10)
SerialCom.Output = "A15,5,0,1,1,1,N,""FAJA GARANTIA""" & Chr(10)
SerialCom.Output = "A15,25,0,1,1,1,N,""Lote : """ & Chr(10)
SerialCom.Output = "A87,25,0,1,2,1,N," & Chr(34) & Val(lote) & Chr(34) & Chr(10)
SerialCom.Output = "A235,35,1,1,1,1,N,""FECHA""" & Chr(10)
SerialCom.Output = "A205,12,1,1,1,1,N,""  /   /""" & Chr(10)
SerialCom.Output = "B15,41,0,E80,2,9,35,N," & Chr(34) & barras & Chr(34) & Chr(10)
SerialCom.Output = "A15,85,0,1,2,1,N," & Chr(34) & barras & Chr(34) & Chr(10)
SerialCom.Output = "P" & Val(cantidad) & Chr(10)
End Sub

drvedia1981, has mirado si en la página del fabricante hay algún OCX/DLL para manejar la impresora?

Estou a usar uma ZEBRA 410 industrial com etiquetas de 100mmx50mm e com outras etiquetas de 100mmx99mm.
Instalei a impressora zebra no Windows 10.
Com o PowerForm desenhei a etiqueta com os códigos de barras que precisava.
E ... imprime muito bem e rápido e corta o papel no fim se tiver "cutter"

Porque não tentas fazer por este processo?
O PowerFORM permite desenhar a etiqueta sem grandes problemas.

Un saludo,
Rui Pinto

PS: Andava por aí no foro um ocx para portas COM