imprimir etiqueta en zebra GC420t

Post Reply
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

imprimir etiqueta en zebra GC420t

Post 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..
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
devwin2010
Posts: 38
Joined: Tue Jul 17, 2007 12:37 pm

Re: imprimir etiqueta en zebra GC420t

Post by devwin2010 »

Hola Patricio

Tenes que calibrarla fijate este video https://www.youtube.com/watch?v=BhIrkBjijfM
cualquier duda avisame
Saludos
Fabian
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: imprimir etiqueta en zebra GC420t

Post by Patricio Avalos Aguirre »

Hola Favian

gracias por la info

hice todo pero igual se corre :-(
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
devwin2010
Posts: 38
Joined: Tue Jul 17, 2007 12:37 pm

Re: imprimir etiqueta en zebra GC420t

Post 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
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: imprimir etiqueta en zebra GC420t

Post by karinha »

João Santos - São Paulo - Brasil
Post Reply