Page 1 of 1

imprimir etiqueta en zebra GC420t

Posted: Wed Apr 04, 2018 7:57 pm
by Patricio Avalos Aguirre
Hola tod@s

Consulta si alguien del foro a imprimido etiquetas con cod. de barra en la impresora zebra GC420t?

tengo problema al imprimir con Fastreport, imprime 4 etiquetas bien y luego empieza a correrse de apoco le hecho de todo y nada

alguien tiene algo para ir probando otra alternativa..

Re: imprimir etiqueta en zebra GC420t

Posted: Thu Apr 05, 2018 8:49 pm
by devwin2010
Hola Patricio

Tenes que calibrarla fijate este video https://www.youtube.com/watch?v=BhIrkBjijfM
cualquier duda avisame
Saludos
Fabian

Re: imprimir etiqueta en zebra GC420t

Posted: Tue Apr 10, 2018 10:35 pm
by Patricio Avalos Aguirre
Hola Favian

gracias por la info

hice todo pero igual se corre :-(

Re: imprimir etiqueta en zebra GC420t

Posted: Thu Apr 12, 2018 1:38 am
by devwin2010
Patricio

Te envio el codigo que uso fijate de setear bien la impresora , he llegado a imprimir 70 etiquetas sin que se corra un mm

Cualquier duda avisame

Saludos

function barcode2tp()

local opr, xStep, yStep, oBr, oFont , N := 0

* public XCANCELA := "N"
PUBLIC XCODIGOC := SPACE(13)
public ocodigo

if msgyesno ("Imprime Codigo de trazabilidad ","Trazabilidad Compras")

printersetup()


printer oprinter NAME "IMPRESION CODIGO DE BARRAS"
oprinter:lPrvmodal := .T.

define brush oBr color CLR_YELLOW
define font oFont name 'ARIAL' size 0, -12 of oPr
define font oFont1 name 'ARIAL' size 0, -10 of oPr
rescoluna:=oPrinter:nlogpixelx()/2.54
reslinha:=oPrinter:nlogpixely()/2.54


*if msgyesno ("Imprime Codigo de trazabilidad ","Trazabilidad Compras")


store 12->descripcio to Xdetalle
store str(xnfac1,6) to xnfactu

store dtos(date()) to Xvto1
store alltrim(xvto1)+alltrim(xnfactu) to xcodigocc




page
nLineDes := 1.8
nCol := 1.5
nLineBar := 300
nLineCod := 300
@ 1*rescoluna,2*reslinha code3_9 ALLTRIM(XCODIGOCC) of oPrinter
oPrinter:say(3*reslinha,.5*rescoluna,ALLTRIM(Xnombre))
oPrinter:say(3.5*reslinha,.5*rescoluna,"FECHA "+DTOC(DATE()))


ENDPAGE



else

return



ENDIF



*
endprint
oBr:end()
oFOnt:end()
return nil

Re: imprimir etiqueta en zebra GC420t

Posted: Thu Apr 12, 2018 7:08 pm
by karinha