FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Imprimir en la Impresora - ELTRON-2642

Post a reply

Imprimir en la Impresora - ELTRON-2642

Postby karinha » Wed Mar 28, 2007 6:22 pm

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 - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Postby vailtom » Wed Mar 28, 2007 6:51 pm

Olha só quem eu encontrei por terras estrangeiras.. ;)
hehehehehe
Vailton Renato
User avatar
vailtom
 
Posts: 47
Joined: Thu Jan 05, 2006 6:56 pm
Top

Postby karinha » Wed Mar 28, 2007 8:07 pm

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 - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: Imprimir en la Impresora - ELTRON-2642

Postby Manuel Valdenebro » Wed Mar 28, 2007 9:25 pm

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
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España
Top

Re: Imprimir en la Impresora - ELTRON-2642

Postby karinha » Wed Mar 28, 2007 10:34 pm

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 - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 114 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group