Imprimir en la Impresora - ELTRON-2642

Post Reply
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Imprimir en la Impresora - ELTRON-2642

Post by karinha »

Buenas amigos...

Necesito un ejemplo de como se imprime en esta impresora.

ELTRON TLP 2642.

Gracias,

Regards, saludos.
João Santos - São Paulo - Brasil
Top
User avatar
vailtom
Posts: 47
Joined: Thu Jan 05, 2006 6:56 pm
Contact:
Contact vailtom

Post by vailtom »

Olha só quem eu encontrei por terras estrangeiras.. ;)
hehehehehe
Vailton Renato
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

vailtom wrote:Olha só quem eu encontrei por terras estrangeiras.. ;)
hehehehehe

E AI MEU QUERIDO AMIGO DE SÃO PAULO-BRASIL?

Como vai esta potencia do FIVEWIN Brasil?

Quanto tempo não o vejo(hehehehehe).

Espero que o senhor estja gozando de boa Saúde.

Bom ve-lo neste maravilhoso forum. Bem vindo.

Abraços.
João Santos - São Paulo - Brasil
Top
User avatar
Manuel Valdenebro
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: Imprimir en la Impresora - ELTRON-2642

Post by Manuel Valdenebro »

karinha wrote: Necesito un ejemplo de como se imprime en esta impresora.
ELTRON TLP 2642.
Utilice esta impresora en un viejo programa en Clipper 5.3, para imprimir etiquetas con código de barras. Te envio las funciones que deberás adaptarlas a FiveWin:

***************************************
*** funciones para imprimir etiquetas
*** en impresora ELTRON / ZEBRA
***************************************
FUNC ETIQUETA(nRepe) // nRepe = numero de etiquetas a imprimir

TipImp = 'S'
LNarrow = IF ( TipImp = 'S', 2, 1 )
LWide = IF ( TipImp = 'S', 1, 2 )

WHILE !FT_ISPRINT(TRIM(impresor->CBARRAS)) .AND. SUBS(impresor->LISTADOS,1,1) # "C"
nLen := VALERT ("IMPRESORA DE ETIQUETAS;;NO PREPARADA.",{"Aceptar","Cancelar"},11)
IF nLen<>1
RETURN(0)
ENDI
ENDD
nLen = LEN(NOMBRE)
SET PRINTER TO (TRIM(impresor->CBARRAS)) // nombre impresora codigo barras
SET DEVI TO PRINT // impresora
FOR I = 1 TO nRepe
VACIA_ETI ()
TAMANO_ETI ()
** imprime_cod columna
** fila
** rotation 0 = no
** tipo BarCode (segun tabla) E30 = EAN 13
** LNarrow = anchura
** Lwide
** altura
** N
** Cod_bar = codigo de barra
IMPRIME_COD ( 155, 6, 0, 'E30', LNarrow, LWide, 50, 'N', Cod_Bar )
IMPRIME_TEXTO ( 305, 10, 0, 4, 1, 1, 'N', cPvP )
IMPRIME_TEXTO ( 390, 14, 0, 2, 1, 1, 'N', 'Eur' )
IMPRIME_TEXTO ( 325, 35, 0, 2, 1, 1, 'N', cCam )
IMPRIME_TEXTO ( 390, 35, 0, 2, 1, 1, 'N', 'Pts' )
IMPRIME_TEXTO ( 163, 60, 0, 2, 1, 1, 'N', LEFT ( Referencia, 9 ) )
IMPRIME_TEXTO ( 260, 60, 0, 2, 1, 1, 'N', STR ( Proveedor, 5 ) )
IMPRIME_TEXTO ( 310, 60, 0, 2, 1, 1, 'N', Ref_Pro )
IMPRIME_TEXTO ( 165, 85, 0, 2, 1, 1, 'N', LEFT ( Nombre, 30 ) )
@ PROW () , 0 say 'P1' + CHR (13) + CHR (10)
next
set printer to // (LPTX) impresora normal
set device to SCREEN // pantalla
SET CURSOR ON
Return(0)

func VACIA_ETI
@ PROW () , 0 say 'N' + CHR (13) + CHR (10)
return(0)

func TAMANO_ETI

Rel = IF ( TipImp = 'S', 11.5 / 8, 1 )
Largo = STR ( INT ( 240 * Rel ), 3 )
Sep = STR ( INT ( 24 * Rel ), 2 )
@ PROW () , 0 say 'Q' + Largo + ',' + Sep + CHR (13) + CHR (10)
return(0)

func IMPRIME_COD ( Col, Lin, Rot, CBar, Narrow, Ancho, Alto, Num, Codigo )

Rel = IF ( TipImp = 'S', 11.5 / 8, 1 )

@ PROW () , 0 say 'B' + CAM ( Col * Rel ) + ',' + ;
CAM ( Lin * Rel ) + ',' + ;
CAM ( Rot ) + ',' + ;
CBar + ',' + ;
CAM ( Narrow ) + ',' + ;
CAM ( 2 ) + ',' + ; && Ancho * Rel
CAM ( Alto * Rel ) + ',' + ;
Num + ',' + '"' + Codigo + '"' + CHR (13) + CHR (10)
return(0)

func IMPRIME_TEXTO ( Col, Lin, Rot, Fuente, MulCol, MulLin, Rev, Cadena )

Rel = IF ( TipImp = 'S', 11.5 / 8, 1 )

@ PROW () , 0 say 'A' + CAM ( Col * Rel ) + ',' + ;
CAM ( Lin * Rel ) + ',' + ;
CAM ( Rot ) + ',' + ;
CAM ( Fuente ) + ',' + ;
CAM ( MulCol ) + ',' + ;
CAM ( MulLin ) + ',' + ;
Rev + ',' + '"' + ;
Cadena + '"' + CHR (13) + CHR (10)
return(0)

func CAM (Num)
cxx=ALLTRIM ( STR ( Num, 10 ) )
return(cxx)
Un saludo

Manuel
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Imprimir en la Impresora - ELTRON-2642

Post by karinha »

Manuel Valdenebro wrote:
karinha wrote: Necesito un ejemplo de como se imprime en esta impresora.
ELTRON TLP 2642.
Utilice esta impresora en un viejo programa en Clipper 5.3, para imprimir etiquetas con código de barras. Te envio las funciones que deberás adaptarlas a FiveWin:

***************************************
*** funciones para imprimir etiquetas
*** en impresora ELTRON / ZEBRA
***************************************
FUNC ETIQUETA(nRepe) // nRepe = numero de etiquetas a imprimir

TipImp = 'S'
LNarrow = IF ( TipImp = 'S', 2, 1 )
LWide = IF ( TipImp = 'S', 1, 2 )

WHILE !FT_ISPRINT(TRIM(impresor->CBARRAS)) .AND. SUBS(impresor->LISTADOS,1,1) # "C"
nLen := VALERT ("IMPRESORA DE ETIQUETAS;;NO PREPARADA.",{"Aceptar","Cancelar"},11)
IF nLen<>1
RETURN(0)
ENDI
ENDD
nLen = LEN(NOMBRE)
SET PRINTER TO (TRIM(impresor->CBARRAS)) // nombre impresora codigo barras
SET DEVI TO PRINT // impresora
FOR I = 1 TO nRepe
VACIA_ETI ()
TAMANO_ETI ()
** imprime_cod columna
** fila
** rotation 0 = no
** tipo BarCode (segun tabla) E30 = EAN 13
** LNarrow = anchura
** Lwide
** altura
** N
** Cod_bar = codigo de barra
IMPRIME_COD ( 155, 6, 0, 'E30', LNarrow, LWide, 50, 'N', Cod_Bar )
IMPRIME_TEXTO ( 305, 10, 0, 4, 1, 1, 'N', cPvP )
IMPRIME_TEXTO ( 390, 14, 0, 2, 1, 1, 'N', 'Eur' )
IMPRIME_TEXTO ( 325, 35, 0, 2, 1, 1, 'N', cCam )
IMPRIME_TEXTO ( 390, 35, 0, 2, 1, 1, 'N', 'Pts' )
IMPRIME_TEXTO ( 163, 60, 0, 2, 1, 1, 'N', LEFT ( Referencia, 9 ) )
IMPRIME_TEXTO ( 260, 60, 0, 2, 1, 1, 'N', STR ( Proveedor, 5 ) )
IMPRIME_TEXTO ( 310, 60, 0, 2, 1, 1, 'N', Ref_Pro )
IMPRIME_TEXTO ( 165, 85, 0, 2, 1, 1, 'N', LEFT ( Nombre, 30 ) )
@ PROW () , 0 say 'P1' + CHR (13) + CHR (10)
next
set printer to // (LPTX) impresora normal
set device to SCREEN // pantalla
SET CURSOR ON
Return(0)

func VACIA_ETI
@ PROW () , 0 say 'N' + CHR (13) + CHR (10)
return(0)

func TAMANO_ETI

Rel = IF ( TipImp = 'S', 11.5 / 8, 1 )
Largo = STR ( INT ( 240 * Rel ), 3 )
Sep = STR ( INT ( 24 * Rel ), 2 )
@ PROW () , 0 say 'Q' + Largo + ',' + Sep + CHR (13) + CHR (10)
return(0)

func IMPRIME_COD ( Col, Lin, Rot, CBar, Narrow, Ancho, Alto, Num, Codigo )

Rel = IF ( TipImp = 'S', 11.5 / 8, 1 )

@ PROW () , 0 say 'B' + CAM ( Col * Rel ) + ',' + ;
CAM ( Lin * Rel ) + ',' + ;
CAM ( Rot ) + ',' + ;
CBar + ',' + ;
CAM ( Narrow ) + ',' + ;
CAM ( 2 ) + ',' + ; && Ancho * Rel
CAM ( Alto * Rel ) + ',' + ;
Num + ',' + '"' + Codigo + '"' + CHR (13) + CHR (10)
return(0)

func IMPRIME_TEXTO ( Col, Lin, Rot, Fuente, MulCol, MulLin, Rev, Cadena )

Rel = IF ( TipImp = 'S', 11.5 / 8, 1 )

@ PROW () , 0 say 'A' + CAM ( Col * Rel ) + ',' + ;
CAM ( Lin * Rel ) + ',' + ;
CAM ( Rot ) + ',' + ;
CAM ( Fuente ) + ',' + ;
CAM ( MulCol ) + ',' + ;
CAM ( MulLin ) + ',' + ;
Rev + ',' + '"' + ;
Cadena + '"' + CHR (13) + CHR (10)
return(0)

func CAM (Num)
cxx=ALLTRIM ( STR ( Num, 10 ) )
return(cxx)
Gracias, Manuel


Voy compilar en XHARBOUR modo CONSOLE si funcionar, adapto a FIVEWIN.

Muchas gracias.

Regards, saludos.
João Santos - São Paulo - Brasil
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”