Imprimir Zebra TLP2844 USB
Imprimir Zebra TLP2844 USB
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]
[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]
Luis Fernando Rubio Rubio
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.
no dudes en consultarme sobre cualquier duda.
Saludos.
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
te agradezco tu apoyo enormemente...
Saludos
Luis Fernando Rubio Rubio
- Carles
- Posts: 1153
- Joined: Fri Feb 10, 2006 2:34 pm
- Location: Barcelona
- Been thanked: 7 times
- Contact:
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.
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.
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
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
les dejo el codigo fuente..
Saludos
Code: Select all | Expand
#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)
Luis Fernando Rubio Rubio
- Carles
- Posts: 1153
- Joined: Fri Feb 10, 2006 2:34 pm
- Location: Barcelona
- Been thanked: 7 times
- Contact:
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.
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.
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
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
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
Pedro Gonzalez
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
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
Re: Imprimir Zebra TLP2844 USB
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
Saludos
http://www.4shared.com/file/83165914/d1929bbd/Eltron_716.html
Luis Fernando Rubio Rubio