Imprimir Zebra TLP2844 USB

[derpipu]

Hola a todos, estoy en un proyecto que requiere que se impriman etiquetas para el control de activos y se escogio esta impresora por las capacidades, ya empece a hacer pruebas, busque y encontre material muy interesante por ejemplo el que permite hacer el diseño con el software propio de la impresora y luego reutilizar ese archivo .LBL y solo reemplazar los datos, aqui les pongo el ejemplo.

[code]
#include "fivewin.ch"

function main()

local oDlg, oBnt1, oBnt2

DEFINE DIALOG oDlg TITLE "SIAC - ETIQUETAS ZEBRA" FROM 10, 10 to 200, 400 PIXEL COLOR 0, 14215660
oDlg:lHelpIcon := .F.
DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 0, -12

@ 33, 59 BUTTON oBnt1 Prompt "Imprimir" SIZE 40,16 PIXEL OF oDlg ACTION etiq_zebra() FONT oFnt
@ 33, 103 BUTTON oBnt2 Prompt "Sair" SIZE 35,16 PIXEL OF oDlg ACTION oDlg:End() FONT oFnt

ACTIVATE DIALOG oDlg CENTERED

return .t.

func etiq_zebra()
local cEtiq_TXT := ""

npos1 := 17
wPreco1 := 999999.00
wCodBar1 := "7891234512345"
wProduto1 := "SABAO EM BARRA OMO MUL" // TIACAO
clinhal1c1 := wProduto1
clinhal2c1 := [R$ ]+transform(wPreco1,[@E 999999,99])
clinhal3c1 := wCodBar1

// LIMPA O BUFFER DA IMPRESSORA
cEtiq_TXT := [N]+CRLF

// TEMPERATURA DA CABEÇA DE IMPRESSÃO / ACIMA DE 15 DANIFICA
cEtiq_TXT += [D7]+CRLF

// VELOCIDADE
cEtiq_TXT += [S2]+CRLF

// ESPAÇO
cEtiq_TXT += [Q160,24]+CRLF

// DESCRIÇÃO
// cEtiq_TXT := etiq_txt +[A000,28,0,5,1,1,N,"]+clinhal1c1+["]+enter
cEtiq_TXT += [A000,28,0,4,2,2,N,"]+clinhal1c1+["] + CRLF

// PREÇO
cEtiq_TXT += [A000,95,0,5,1,1,N,"]+clinhal2c1+["] + CRLF

// IMPRIME A QUANTIDADE DE ETIQUETAS
cEtiq_TXT += [P1] + chr(10)

nH := FOpen("LPT1",2)
Fwrite(nH, cEtiq_TXT)
Fclose(nH)

return nil

[code]

pues bien, este codigo esta padre, me imprime correcto, pero esto es usando el cable paralelo, pero ahora me comenta el cliente que sus equipos no usan ya ese puerto ademas que se utilizara en una laptop, entonces requiero hacerlo por USB, pero ahora si ya me perdi..

Existe alguien que haya pasado por esta situacion y de ser asi como lo subsano ??

Uso xHarbour y FWH

de antemano muchas gracias[/code]

[MANOLO]

hola derpipu, yo trabajo con estas impresoras, y el mejor modo de trabajar con ellas ya sea lpt com o usb es creando una impresora GENERIC / SOLO TEXTO, redirigiendola al puerto donde este conectada la impresora termica y le envias los datos tal y como lo haces pero con la clase tprinter.

no dudes en consultarme sobre cualquier duda.

Saludos.

[derpipu]

Manolo, muchas gracias por tu informacion, tendras algun codigo para darme una idea, lo que pasa es que no entiendo como hacerle para decirle el tamaño de la etiqueta, ni el pequeño salto entre etiqueta y etiqueta, ademas que necesito imprimir una imagen y el codigo de barras..

te agradezco tu apoyo enormemente...

Saludos

[Carles]

Derpipu,

No deberias de tener problemas, ya q es el propio driver de la Zebra quien te gestionara la impresion. Simplemente seleccionando la impresora tiene q ser completamente transparente para ti....

Siau.
C.

[pymsoft]

Luis,



comparte la impresora, luego haz lo siguiente: net use lpt1 \\tupc\tuimpresora

y luego mandas a imprimir a lpt1 normalmente.

de todos modos, con la Zebra puedes imprimir las etiquetas usando la clase tprinter (yo lo hago asi, sin problemas)

espero te sirva

saludos

[derpipu]

Pues despues de tratar y experimentar con las opciones que me encontre en la red, pues vi que la opcion de hacer una etiqueta y reemplazar datos no era factible para mi caso, ya que necesitaba imprimir una etiqueta y el hecho de reemplazar valores no me sirvio, asi que gracias a la consultoria que tuve con algunos compañeros amables del foro, entonces se vio que la forma mas facil era hacer una impresion simple Tprinter y ahi mandar llamar la impresion de Etiquetas de CAyetano y todo de la forma tradicional, ahora el unico problema que tengo es que la impresora autodetecte el tipo de etiqueta y los brincos...

les dejo el codigo fuente..

Saludos

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "impresio.ch"
#include "barcode.ch"

function f_Imprime_Etiqueta()
  local cEtiqueta := ""
  local cArchivo  := oApp:xDatos + "wproyecto.lbl"
  local nRowx := 0, nColx := 0


  if ! file( cArchivo )
    MsgStop("No Existe el archivo Plantilla para las Etiquetas, verifique...", oApp:cEmpresa); return(nil)
  endif

  if empty( cEtiqueta := MemoRead( cArchivo ) )
    MsgStop("Archivo Base de Etiquetas corrupto, verifique...", oApp:cEmpresa ); return(nil)
  endif

  if ! net_use( "activos",,,  oApp:xDatos ) // Catalogo de Activos
    dbCloseall(); return(nil)
  endif


//  cEtiqueta := StrTran( cEtiqueta, "9999999999", activos->id )
//  cEtiqueta := StrTran( cEtiqueta, "TEXTO", left(activos->nombre,10) )
//   nH := FOpen( "LPT1", 2 )
//   Fwrite( nH, cEtiqueta )
//   Fclose( nH )

  MyPRINT oPrn FROM USER PREVIEW TITLE "Etiquetas"
    DEFINE FONT  oPrn:fNormal  NAME "Lucida Console" SIZE 0,-08      OF oPrn
    DEFINE FONT  oPrn:fBold    NAME "Lucida Console" SIZE 0,-08 BOLD OF oPrn
    DEFINE PEN   oPrn:oPen     WIDTH 1

    if Empty( oPrn:hDC )
      MsgStop("No Existen Impresoras instaladas o no selecciono ninguna impresora, verifique por favor...", oApp:cEmpresa)
      dbCloseAll(); return nil          // Printer was not installed or ready
    endif

    PAGE
      oPrn:Bitmap( 00.10, 00.10, 2, 2, ".\bitmaps\logo_impresion.bmp" )

//      oPrn:cmSay( 00.00, 00.00, left(activos->nombre,30), oPrn:fNormal,, CLR_BLACK,, PAD_LEFT )
//      oPrn:cmSay( 02.20, 01.60, activos->id, oPrn:fNormal,, CLR_BLACK,, PAD_LEFT )

      nRowx := 00.30
      nColx := 02.00
      oPrn:Cmtr2Pix( @nRowx, @nColx )
      @ nRowx, nColx code3_9 activos->id WIDTH 00.018 SIZE 01.90 OF oPrn
    ENDPAGE

  ENDPRINT

   dbCloseall()
return(nil)



[Carles]

Hola,

Ya te comente que es el propio driver quien se encarga de todo y es mas facil de lo que parece. En cuanto a la gestion de tipo de etiquetas y control de 'brincos', esto lo tienes de hacer calibrando la impresora y sus sensores y via definicion de etiquetas y control del propio driver.

Siau.
C.

[pymsoft]

Luis,


Enciende la impresora con el boton verde presionado, esperas unos segundos y lo sueltas, salen una cantidad de etiquetas en blanco (para detectar el salto de pagina) y luego presionas nuevamente el boton verde.
En el driver de la impresora le pones en el salto de pagina, que use LABEL GAPS.


Saludos

[derpipu]

Muchas Gracias a todos, el tip ese de encender la impresora con el boton presionado me ahorrara muchos detalles de configuracion..

de antemano les agradezco a todos..

Saludos desde Tequila, Jalisco, Mexico.

[JoseLuis]

Hola

Yo con Tprinter imprimo sin problemas, pero llevo dos meses con un problema que no se como resolver.

El tema es que necesito imprimir etiquetas también desde otra aplicación que no es mía a través de ésta impresora, ésto no es problema ya que se le manda una orden de impresión de un fichero de texto con códigos EPL, y ya está. El problema es el diseño de la etiqueta.

Esta impresora viene con un programa Zebra Designer o algo así, y con el, se diseña ésta etiqueta, y a la hora de imprimir se le dice que imprimir a un fichero de texto, y genera éste diseño, pero hay alguna líneas de éste fichero que son ininteligibles, osea que las genera con caracteres asciil raros, y es lo que no puedo descifrar a la hora de saber que valores son los que hay.

Loo habeis probado alguien?

Saludos

Jose Luis

[derpipu]

Hola a todos, les comento que las etiquetas salieron siempre usando la tprinter y la lib de cayetano para los codigos de barra, y el unico problema que tuve es que la impresora no respetaba la impresion y investigando di con que era el driver original de la impresora aunque ud no lo crea y descargue otro de eltron y ese funciono al 100%, se los dejo por si le sirve a alguien mas..

Saludos

http://www.4shared.com/file/83165914/d1929bbd/Eltron_716.html