FiveTech Support Forums

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..

Hola Patricio

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

Hola Favian

gracias por la info

hice todo pero igual se corre

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
@ 1rescoluna,2reslinha code3_9 ALLTRIM(XCODIGOCC) of oPrinter
oPrinter:say(3reslinha,.5rescoluna,ALLTRIM(Xnombre))
oPrinter:say(3.5reslinha,.5rescoluna,"FECHA "+DTOC(DATE()))

ENDPAGE

else

return

ENDIF

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