FiveTech Software tech support forums

Amigos del foro:

Tengo una impresora Zebra MZ220 Bluetooth conectada por el puerto seria de salida Com5 al bluetooth. El problema es que WriteByte se tarda demasiado en imprimir. Sospecho que hay que configurar el puerto, Intenté hacerlo, pero no lo estoy haciendo bien.

El string a imprimir tiene un promedio de 300 chrs, Sí se imprime, pero para imprimirse tarda 2 minutos!!
he aquí el código:

// cText es una cadena formateada con máximo
// 400 caracteres imprimibles.

hOut := CreateFile( "COM5:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )
IF hOut==-1
MsgStop("Port Not Found")
return nil
endif

FOR i = 1 TO Len( cText )
WriteByte( hOut, Asc(SubStr( cText, i, 1 ) ) )
NEXT

USE

CloseHandle( hOut )

Arturo,

Prueba con este cambio:

Code: Select all  Expand view

FOR i = 1 TO Len( cText )
   WriteByte( hOut, Asc(SubStr( cText, i, 1 ) ) )
   SysRefresh()
NEXT


Lo voy a probar y te comento, gracias!

Antonio Linares wrote:Arturo,

Prueba con este cambio:

Code: Select all  Expand view

FOR i = 1 TO Len( cText )
   WriteByte( hOut, Asc(SubStr( cText, i, 1 ) ) )
   SysRefresh()
NEXT


Antonio:
Ya lo probé con SysRefresh() y el problema sigue presente. Probablemente hay una mejora, lo que tradaba 3 minutos hoy tarda 2 minutos, para ser un Ticket con encabezado, 2 partidas y un total (300 caracteres) sl problema sigue siendo grande:

hola arturo estamos por comprar esa impresora el problema persiste o se soluciono ?

Gracias.

El problema se soluciono, la velocidad de impresion es aceptable.

Hasta donde recuerdo Antes Utilizabamos WriteByte() y era bastante lento
y la solucion fue usar la funcion WriteFile() del lenguaje C desde un PRAGMA
mandando porciones de no mas de 80 caracteres a la vez, aunque ese modulo no lo hice yo.

Puedes googlear y checar la documentación de WriteFile()
Saludos

Arturo.

Gracias Arturo.