FiveTech Software tech support forums

Buenas amigos...

Necesito un ejemplo de como se imprime en esta impresora.

ELTRON TLP 2642.

Gracias,

Regards, saludos.

Olha só quem eu encontrei por terras estrangeiras..
hehehehehe

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.

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)

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.