In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Any class for labels???

Xailer professional forum in English
Responder
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

Any class for labels???

Mensaje por Dionisis Divaris »

Hello to all.
Is there any class or function to print labels ??
TIA
Dionisis
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Any class for labels???

Mensaje por ignacio »

Dionisis,
No, there is not, but I include with this message a simple process that may
help you to create your own labels. Try to understand the code. If you have
any doubt feel free to ask.
Regards,
METHOD Button1Click( oSender ) CLASS TMyFrm
LOCAL oRep, oFont
LOCAL aEtiq
LOCAL nEtiq, n
FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
CONTACTO
WITH OBJECT oFont := TFont():New()
:cName := "Arial"
:nSize := 10
:Create()
END WITH
aEtiq := {}
nEtiq := 0
Application:lBusy := .T.
::lEnabled := .F.
::oDbf:SaveState( .T. )
::oDbf:Select()
WITH OBJECT Printer
:lPreview := .T.
:cJobTitle := "Client labels"
:StartDoc()
:oCanvas:nMapMode := mmHIMETRICS
:oCanvas:nTextAlignment := taLEFT
:oCanvas:oFont := oFont
GO TOP
DO WHILE !Eof()
IF nEtiq == 0 .AND. Len( aEtiq ) == 0
:StartPage()
ENDIF
Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
PAIS, CONTACTO } )
IF Len( aEtiq ) == 2
PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
aEtiq := {}
IF ++nEtiq > 9
:EndPage()
nEtiq := 0
ENDIF
ENDIF
SKIP
ENDDO
IF Len( aEtiq ) > 0
PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
:EndPage()
ENDIF
:EndDoc()
::oDbf:RestoreState( .T. )
::Close()
Application:lBusy := .F.
:Preview( .T. )
END WITH
RETURN Nil
#define ETIQ_ALTO 288
#define ETIQ_ANCHO 1050
#define ETIQ_YOFF 332 - ETIQ_ALTO + 50
#define ETIQ_X1OFF 50
#define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
LOCAL cPob
LOCAL nRow, nCol1, nCol2, nPaso
nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
nCol1 := ETIQ_X1OFF
nCol2 := ETIQ_X2OFF
nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
WITH OBJECT oCanvas
:TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
nRow += nPaso
:TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
nRow += nPaso
cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
:TextOut( nCol1, nRow, cPob )
nRow += nPaso
:TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
nRow += nPaso
:TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
nRow += nPaso
IF !Empty( aEtiq[ 1, 7 ] )
:TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
ENDIF
IF Len( aEtiq ) > 1
nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
:TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
nRow += nPaso
:TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
nRow += nPaso
cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
:TextOut( nCol2, nRow, cPob )
nRow += nPaso
:TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
nRow += nPaso
:TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
nRow += nPaso
IF !Empty( aEtiq[ 2, 7 ] )
:TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
ENDIF
ENDIF
END WITH
RETURN NIL
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hello to all.
>
> Is there any class or function to print labels ??
>
> TIA
>
> Dionisis
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
NoName
Mensajes: 531
Registrado: Vie Feb 03, 2006 7:27 pm

Any class for labels???

Mensaje por NoName »

Dionisis,
No, there is not, but I include with this message a simple process that may
help you to create your own labels. Try to understand the code. If you have
any doubt feel free to ask.
Regards,
METHOD Button1Click( oSender ) CLASS TMyFrm
LOCAL oRep, oFont
LOCAL aEtiq
LOCAL nEtiq, n
FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
CONTACTO
WITH OBJECT oFont := TFont():New()
:cName := "Arial"
:nSize := 10
:Create()
END WITH
aEtiq := {}
nEtiq := 0
Application:lBusy := .T.
::lEnabled := .F.
::oDbf:SaveState( .T. )
::oDbf:Select()
WITH OBJECT Printer
:lPreview := .T.
:cJobTitle := "Client labels"
:StartDoc()
:oCanvas:nMapMode := mmHIMETRICS
:oCanvas:nTextAlignment := taLEFT
:oCanvas:oFont := oFont
GO TOP
DO WHILE !Eof()
IF nEtiq == 0 .AND. Len( aEtiq ) == 0
:StartPage()
ENDIF
Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
PAIS, CONTACTO } )
IF Len( aEtiq ) == 2
PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
aEtiq := {}
IF ++nEtiq > 9
:EndPage()
nEtiq := 0
ENDIF
ENDIF
SKIP
ENDDO
IF Len( aEtiq ) > 0
PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
:EndPage()
ENDIF
:EndDoc()
::oDbf:RestoreState( .T. )
::Close()
Application:lBusy := .F.
:Preview( .T. )
END WITH
RETURN Nil
#define ETIQ_ALTO 288
#define ETIQ_ANCHO 1050
#define ETIQ_YOFF 332 - ETIQ_ALTO + 50
#define ETIQ_X1OFF 50
#define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
LOCAL cPob
LOCAL nRow, nCol1, nCol2, nPaso
nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
nCol1 := ETIQ_X1OFF
nCol2 := ETIQ_X2OFF
nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
WITH OBJECT oCanvas
:TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
nRow += nPaso
:TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
nRow += nPaso
cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
:TextOut( nCol1, nRow, cPob )
nRow += nPaso
:TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
nRow += nPaso
:TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
nRow += nPaso
IF !Empty( aEtiq[ 1, 7 ] )
:TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
ENDIF
IF Len( aEtiq ) > 1
nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
:TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
nRow += nPaso
:TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
nRow += nPaso
cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
:TextOut( nCol2, nRow, cPob )
nRow += nPaso
:TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
nRow += nPaso
:TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
nRow += nPaso
IF !Empty( aEtiq[ 2, 7 ] )
:TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
ENDIF
ENDIF
END WITH
RETURN NIL
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hello to all.
>
> Is there any class or function to print labels ??
>
> TIA
>
> Dionisis
>
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

Any class for labels???

Mensaje por Dionisis Divaris »

Hello Ignacio.
Many thanks for your help. I need some explanation with
variables spanish names in function PrintEtiqueta.
By the way can we have sortly a new release with latest bug fixes.
Many many thanks again
Regards
Dionisis
Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
news:45abba3e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Dionisis,
>
> No, there is not, but I include with this message a simple process that
> may help you to create your own labels. Try to understand the code. If you
> have any doubt feel free to ask.
>
> Regards,
>
> METHOD Button1Click( oSender ) CLASS TMyFrm
>
> LOCAL oRep, oFont
> LOCAL aEtiq
> LOCAL nEtiq, n
>
> FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
> CONTACTO
>
> WITH OBJECT oFont := TFont():New()
> :cName := "Arial"
> :nSize := 10
> :Create()
> END WITH
>
> aEtiq := {}
> nEtiq := 0
>
> Application:lBusy := .T.
>
> ::lEnabled := .F.
>
> ::oDbf:SaveState( .T. )
>
> ::oDbf:Select()
>
> WITH OBJECT Printer
> :lPreview := .T.
> :cJobTitle := "Client labels"
> :StartDoc()
> :oCanvas:nMapMode := mmHIMETRICS
> :oCanvas:nTextAlignment := taLEFT
> :oCanvas:oFont := oFont
>
> GO TOP
>
> DO WHILE !Eof()
> IF nEtiq == 0 .AND. Len( aEtiq ) == 0
> :StartPage()
> ENDIF
> Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
> PAIS, CONTACTO } )
> IF Len( aEtiq ) == 2
> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
> aEtiq := {}
> IF ++nEtiq > 9
> :EndPage()
> nEtiq := 0
> ENDIF
> ENDIF
> SKIP
> ENDDO
>
> IF Len( aEtiq ) > 0
> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
> :EndPage()
> ENDIF
>
> :EndDoc()
> ::oDbf:RestoreState( .T. )
> ::Close()
> Application:lBusy := .F.
> :Preview( .T. )
>
> END WITH
>
> RETURN Nil
>
> #define ETIQ_ALTO 288
> #define ETIQ_ANCHO 1050
> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
> #define ETIQ_X1OFF 50
> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
>
> FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
>
> LOCAL cPob
> LOCAL nRow, nCol1, nCol2, nPaso
>
> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
> nCol1 := ETIQ_X1OFF
> nCol2 := ETIQ_X2OFF
> nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
> oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
>
> WITH OBJECT oCanvas
> :TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
> nRow += nPaso
> :TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
> nRow += nPaso
> cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
> :TextOut( nCol1, nRow, cPob )
> nRow += nPaso
> :TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
> nRow += nPaso
> :TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
> nRow += nPaso
> IF !Empty( aEtiq[ 1, 7 ] )
> :TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
> ENDIF
>
> IF Len( aEtiq ) > 1
> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
> :TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
> nRow += nPaso
> :TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
> nRow += nPaso
> cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
> :TextOut( nCol2, nRow, cPob )
> nRow += nPaso
> :TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
> nRow += nPaso
> :TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
> nRow += nPaso
> IF !Empty( aEtiq[ 2, 7 ] )
> :TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
> ENDIF
> ENDIF
> END WITH
>
> RETURN NIL
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
> news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Hello to all.
>>
>> Is there any class or function to print labels ??
>>
>> TIA
>>
>> Dionisis
>>
>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

Any class for labels???

Mensaje por Dionisis Divaris »

Hello Ignacio.
Many thanks for your help. I need some explanation with
variables spanish names in function PrintEtiqueta.
By the way can we have sortly a new release with latest bug fixes.
Many many thanks again
Regards
Dionisis
Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
news:45abba3e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Dionisis,
>
> No, there is not, but I include with this message a simple process that
> may help you to create your own labels. Try to understand the code. If you
> have any doubt feel free to ask.
>
> Regards,
>
> METHOD Button1Click( oSender ) CLASS TMyFrm
>
> LOCAL oRep, oFont
> LOCAL aEtiq
> LOCAL nEtiq, n
>
> FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
> CONTACTO
>
> WITH OBJECT oFont := TFont():New()
> :cName := "Arial"
> :nSize := 10
> :Create()
> END WITH
>
> aEtiq := {}
> nEtiq := 0
>
> Application:lBusy := .T.
>
> ::lEnabled := .F.
>
> ::oDbf:SaveState( .T. )
>
> ::oDbf:Select()
>
> WITH OBJECT Printer
> :lPreview := .T.
> :cJobTitle := "Client labels"
> :StartDoc()
> :oCanvas:nMapMode := mmHIMETRICS
> :oCanvas:nTextAlignment := taLEFT
> :oCanvas:oFont := oFont
>
> GO TOP
>
> DO WHILE !Eof()
> IF nEtiq == 0 .AND. Len( aEtiq ) == 0
> :StartPage()
> ENDIF
> Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
> PAIS, CONTACTO } )
> IF Len( aEtiq ) == 2
> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
> aEtiq := {}
> IF ++nEtiq > 9
> :EndPage()
> nEtiq := 0
> ENDIF
> ENDIF
> SKIP
> ENDDO
>
> IF Len( aEtiq ) > 0
> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
> :EndPage()
> ENDIF
>
> :EndDoc()
> ::oDbf:RestoreState( .T. )
> ::Close()
> Application:lBusy := .F.
> :Preview( .T. )
>
> END WITH
>
> RETURN Nil
>
> #define ETIQ_ALTO 288
> #define ETIQ_ANCHO 1050
> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
> #define ETIQ_X1OFF 50
> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
>
> FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
>
> LOCAL cPob
> LOCAL nRow, nCol1, nCol2, nPaso
>
> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
> nCol1 := ETIQ_X1OFF
> nCol2 := ETIQ_X2OFF
> nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
> oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
>
> WITH OBJECT oCanvas
> :TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
> nRow += nPaso
> :TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
> nRow += nPaso
> cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
> :TextOut( nCol1, nRow, cPob )
> nRow += nPaso
> :TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
> nRow += nPaso
> :TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
> nRow += nPaso
> IF !Empty( aEtiq[ 1, 7 ] )
> :TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
> ENDIF
>
> IF Len( aEtiq ) > 1
> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
> :TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
> nRow += nPaso
> :TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
> nRow += nPaso
> cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
> :TextOut( nCol2, nRow, cPob )
> nRow += nPaso
> :TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
> nRow += nPaso
> :TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
> nRow += nPaso
> IF !Empty( aEtiq[ 2, 7 ] )
> :TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
> ENDIF
> ENDIF
> END WITH
>
> RETURN NIL
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
> news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Hello to all.
>>
>> Is there any class or function to print labels ??
>>
>> TIA
>>
>> Dionisis
>>
>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9469
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Any class for labels???

Mensaje por ignacio »

Dionisis,
They are just FIELD variables:
SECTOR -> SECTOR
NOMBRE -> NAME
DIRECCION -> ADDRESS
POBLACION ->CITY
CPOSTAL -> AREA CODE
PROVINCIA ->PROVINCE
PAIS -> COUNTRY
CONTACTO -> CONTACT
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:[email=45b1ca4b@news.xailer.com...]45b1ca4b@news.xailer.com...[/email]
> Hello Ignacio.
> Many thanks for your help. I need some explanation with
> variables spanish names in function PrintEtiqueta.
>
> By the way can we have sortly a new release with latest bug fixes.
>
> Many many thanks again
> Regards
> Dionisis
>
> Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
> news:45abba3e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Dionisis,
>>
>> No, there is not, but I include with this message a simple process that
>> may help you to create your own labels. Try to understand the code. If
>> you have any doubt feel free to ask.
>>
>> Regards,
>>
>> METHOD Button1Click( oSender ) CLASS TMyFrm
>>
>> LOCAL oRep, oFont
>> LOCAL aEtiq
>> LOCAL nEtiq, n
>>
>> FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
>> CONTACTO
>>
>> WITH OBJECT oFont := TFont():New()
>> :cName := "Arial"
>> :nSize := 10
>> :Create()
>> END WITH
>>
>> aEtiq := {}
>> nEtiq := 0
>>
>> Application:lBusy := .T.
>>
>> ::lEnabled := .F.
>>
>> ::oDbf:SaveState( .T. )
>>
>> ::oDbf:Select()
>>
>> WITH OBJECT Printer
>> :lPreview := .T.
>> :cJobTitle := "Client labels"
>> :StartDoc()
>> :oCanvas:nMapMode := mmHIMETRICS
>> :oCanvas:nTextAlignment := taLEFT
>> :oCanvas:oFont := oFont
>>
>> GO TOP
>>
>> DO WHILE !Eof()
>> IF nEtiq == 0 .AND. Len( aEtiq ) == 0
>> :StartPage()
>> ENDIF
>> Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
>> PAIS, CONTACTO } )
>> IF Len( aEtiq ) == 2
>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>> aEtiq := {}
>> IF ++nEtiq > 9
>> :EndPage()
>> nEtiq := 0
>> ENDIF
>> ENDIF
>> SKIP
>> ENDDO
>>
>> IF Len( aEtiq ) > 0
>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>> :EndPage()
>> ENDIF
>>
>> :EndDoc()
>> ::oDbf:RestoreState( .T. )
>> ::Close()
>> Application:lBusy := .F.
>> :Preview( .T. )
>>
>> END WITH
>>
>> RETURN Nil
>>
>> #define ETIQ_ALTO 288
>> #define ETIQ_ANCHO 1050
>> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
>> #define ETIQ_X1OFF 50
>> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
>>
>> FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
>>
>> LOCAL cPob
>> LOCAL nRow, nCol1, nCol2, nPaso
>>
>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>> nCol1 := ETIQ_X1OFF
>> nCol2 := ETIQ_X2OFF
>> nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
>> oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
>>
>> WITH OBJECT oCanvas
>> :TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
>> nRow += nPaso
>> :TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
>> nRow += nPaso
>> cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
>> :TextOut( nCol1, nRow, cPob )
>> nRow += nPaso
>> :TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
>> nRow += nPaso
>> :TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
>> nRow += nPaso
>> IF !Empty( aEtiq[ 1, 7 ] )
>> :TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
>> ENDIF
>>
>> IF Len( aEtiq ) > 1
>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>> :TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
>> nRow += nPaso
>> :TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
>> nRow += nPaso
>> cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
>> :TextOut( nCol2, nRow, cPob )
>> nRow += nPaso
>> :TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
>> nRow += nPaso
>> :TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
>> nRow += nPaso
>> IF !Empty( aEtiq[ 2, 7 ] )
>> :TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
>> ENDIF
>> ENDIF
>> END WITH
>>
>> RETURN NIL
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
>> news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Hello to all.
>>>
>>> Is there any class or function to print labels ??
>>>
>>> TIA
>>>
>>> Dionisis
>>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
NoName
Mensajes: 531
Registrado: Vie Feb 03, 2006 7:27 pm

Any class for labels???

Mensaje por NoName »

Dionisis,
They are just FIELD variables:
SECTOR -> SECTOR
NOMBRE -> NAME
DIRECCION -> ADDRESS
POBLACION ->CITY
CPOSTAL -> AREA CODE
PROVINCIA ->PROVINCE
PAIS -> COUNTRY
CONTACTO -> CONTACT
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
news:[email=45b1ca4b@news.xailer.com...]45b1ca4b@news.xailer.com...[/email]
> Hello Ignacio.
> Many thanks for your help. I need some explanation with
> variables spanish names in function PrintEtiqueta.
>
> By the way can we have sortly a new release with latest bug fixes.
>
> Many many thanks again
> Regards
> Dionisis
>
> Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
> news:45abba3e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Dionisis,
>>
>> No, there is not, but I include with this message a simple process that
>> may help you to create your own labels. Try to understand the code. If
>> you have any doubt feel free to ask.
>>
>> Regards,
>>
>> METHOD Button1Click( oSender ) CLASS TMyFrm
>>
>> LOCAL oRep, oFont
>> LOCAL aEtiq
>> LOCAL nEtiq, n
>>
>> FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
>> CONTACTO
>>
>> WITH OBJECT oFont := TFont():New()
>> :cName := "Arial"
>> :nSize := 10
>> :Create()
>> END WITH
>>
>> aEtiq := {}
>> nEtiq := 0
>>
>> Application:lBusy := .T.
>>
>> ::lEnabled := .F.
>>
>> ::oDbf:SaveState( .T. )
>>
>> ::oDbf:Select()
>>
>> WITH OBJECT Printer
>> :lPreview := .T.
>> :cJobTitle := "Client labels"
>> :StartDoc()
>> :oCanvas:nMapMode := mmHIMETRICS
>> :oCanvas:nTextAlignment := taLEFT
>> :oCanvas:oFont := oFont
>>
>> GO TOP
>>
>> DO WHILE !Eof()
>> IF nEtiq == 0 .AND. Len( aEtiq ) == 0
>> :StartPage()
>> ENDIF
>> Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
>> PAIS, CONTACTO } )
>> IF Len( aEtiq ) == 2
>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>> aEtiq := {}
>> IF ++nEtiq > 9
>> :EndPage()
>> nEtiq := 0
>> ENDIF
>> ENDIF
>> SKIP
>> ENDDO
>>
>> IF Len( aEtiq ) > 0
>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>> :EndPage()
>> ENDIF
>>
>> :EndDoc()
>> ::oDbf:RestoreState( .T. )
>> ::Close()
>> Application:lBusy := .F.
>> :Preview( .T. )
>>
>> END WITH
>>
>> RETURN Nil
>>
>> #define ETIQ_ALTO 288
>> #define ETIQ_ANCHO 1050
>> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
>> #define ETIQ_X1OFF 50
>> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
>>
>> FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
>>
>> LOCAL cPob
>> LOCAL nRow, nCol1, nCol2, nPaso
>>
>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>> nCol1 := ETIQ_X1OFF
>> nCol2 := ETIQ_X2OFF
>> nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
>> oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
>>
>> WITH OBJECT oCanvas
>> :TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
>> nRow += nPaso
>> :TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
>> nRow += nPaso
>> cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
>> :TextOut( nCol1, nRow, cPob )
>> nRow += nPaso
>> :TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
>> nRow += nPaso
>> :TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
>> nRow += nPaso
>> IF !Empty( aEtiq[ 1, 7 ] )
>> :TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
>> ENDIF
>>
>> IF Len( aEtiq ) > 1
>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>> :TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
>> nRow += nPaso
>> :TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
>> nRow += nPaso
>> cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
>> :TextOut( nCol2, nRow, cPob )
>> nRow += nPaso
>> :TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
>> nRow += nPaso
>> :TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
>> nRow += nPaso
>> IF !Empty( aEtiq[ 2, 7 ] )
>> :TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
>> ENDIF
>> ENDIF
>> END WITH
>>
>> RETURN NIL
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
>> news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Hello to all.
>>>
>>> Is there any class or function to print labels ??
>>>
>>> TIA
>>>
>>> Dionisis
>>>
>>
>>
>
>
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

Any class for labels???

Mensaje por Dionisis Divaris »

Hello Ignacio and many thanks
I know about FIELDS i need translation of the following:
#define ETIQ_ALTO 288
#define ETIQ_ANCHO 1050
#define ETIQ_YOFF 332 - ETIQ_ALTO + 50
#define ETIQ_X1OFF 50
#define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
Many Thanks
Dionisis
Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
news:45b47368$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Dionisis,
>
> They are just FIELD variables:
>
> SECTOR -> SECTOR
> NOMBRE -> NAME
> DIRECCION -> ADDRESS
> POBLACION ->CITY
> CPOSTAL -> AREA CODE
> PROVINCIA ->PROVINCE
> PAIS -> COUNTRY
> CONTACTO -> CONTACT
>
> Regards,
>
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
> news:[email=45b1ca4b@news.xailer.com...]45b1ca4b@news.xailer.com...[/email]
>> Hello Ignacio.
>> Many thanks for your help. I need some explanation with
>> variables spanish names in function PrintEtiqueta.
>>
>> By the way can we have sortly a new release with latest bug fixes.
>>
>> Many many thanks again
>> Regards
>> Dionisis
>>
>> Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
>> news:45abba3e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Dionisis,
>>>
>>> No, there is not, but I include with this message a simple process that
>>> may help you to create your own labels. Try to understand the code. If
>>> you have any doubt feel free to ask.
>>>
>>> Regards,
>>>
>>> METHOD Button1Click( oSender ) CLASS TMyFrm
>>>
>>> LOCAL oRep, oFont
>>> LOCAL aEtiq
>>> LOCAL nEtiq, n
>>>
>>> FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
>>> CONTACTO
>>>
>>> WITH OBJECT oFont := TFont():New()
>>> :cName := "Arial"
>>> :nSize := 10
>>> :Create()
>>> END WITH
>>>
>>> aEtiq := {}
>>> nEtiq := 0
>>>
>>> Application:lBusy := .T.
>>>
>>> ::lEnabled := .F.
>>>
>>> ::oDbf:SaveState( .T. )
>>>
>>> ::oDbf:Select()
>>>
>>> WITH OBJECT Printer
>>> :lPreview := .T.
>>> :cJobTitle := "Client labels"
>>> :StartDoc()
>>> :oCanvas:nMapMode := mmHIMETRICS
>>> :oCanvas:nTextAlignment := taLEFT
>>> :oCanvas:oFont := oFont
>>>
>>> GO TOP
>>>
>>> DO WHILE !Eof()
>>> IF nEtiq == 0 .AND. Len( aEtiq ) == 0
>>> :StartPage()
>>> ENDIF
>>> Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
>>> PAIS, CONTACTO } )
>>> IF Len( aEtiq ) == 2
>>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>>> aEtiq := {}
>>> IF ++nEtiq > 9
>>> :EndPage()
>>> nEtiq := 0
>>> ENDIF
>>> ENDIF
>>> SKIP
>>> ENDDO
>>>
>>> IF Len( aEtiq ) > 0
>>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>>> :EndPage()
>>> ENDIF
>>>
>>> :EndDoc()
>>> ::oDbf:RestoreState( .T. )
>>> ::Close()
>>> Application:lBusy := .F.
>>> :Preview( .T. )
>>>
>>> END WITH
>>>
>>> RETURN Nil
>>>
>>> #define ETIQ_ALTO 288
>>> #define ETIQ_ANCHO 1050
>>> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
>>> #define ETIQ_X1OFF 50
>>> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
>>>
>>> FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
>>>
>>> LOCAL cPob
>>> LOCAL nRow, nCol1, nCol2, nPaso
>>>
>>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>>> nCol1 := ETIQ_X1OFF
>>> nCol2 := ETIQ_X2OFF
>>> nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
>>> oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
>>>
>>> WITH OBJECT oCanvas
>>> :TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
>>> nRow += nPaso
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
>>> nRow += nPaso
>>> cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
>>> :TextOut( nCol1, nRow, cPob )
>>> nRow += nPaso
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
>>> nRow += nPaso
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
>>> nRow += nPaso
>>> IF !Empty( aEtiq[ 1, 7 ] )
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
>>> ENDIF
>>>
>>> IF Len( aEtiq ) > 1
>>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>>> :TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
>>> nRow += nPaso
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
>>> nRow += nPaso
>>> cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
>>> :TextOut( nCol2, nRow, cPob )
>>> nRow += nPaso
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
>>> nRow += nPaso
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
>>> nRow += nPaso
>>> IF !Empty( aEtiq[ 2, 7 ] )
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
>>> ENDIF
>>> ENDIF
>>> END WITH
>>>
>>> RETURN NIL
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
>>> news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Hello to all.
>>>>
>>>> Is there any class or function to print labels ??
>>>>
>>>> TIA
>>>>
>>>> Dionisis
>>>>
>>>
>>>
>>
>>
>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Avatar de Usuario
Dionisis Divaris
Mensajes: 485
Registrado: Jue Jul 12, 2007 8:48 pm
Ubicación: Athens Greece

Any class for labels???

Mensaje por Dionisis Divaris »

Hello Ignacio and many thanks
I know about FIELDS i need translation of the following:
#define ETIQ_ALTO 288
#define ETIQ_ANCHO 1050
#define ETIQ_YOFF 332 - ETIQ_ALTO + 50
#define ETIQ_X1OFF 50
#define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
Many Thanks
Dionisis
Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
news:45b47368$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Dionisis,
>
> They are just FIELD variables:
>
> SECTOR -> SECTOR
> NOMBRE -> NAME
> DIRECCION -> ADDRESS
> POBLACION ->CITY
> CPOSTAL -> AREA CODE
> PROVINCIA ->PROVINCE
> PAIS -> COUNTRY
> CONTACTO -> CONTACT
>
> Regards,
>
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
> news:[email=45b1ca4b@news.xailer.com...]45b1ca4b@news.xailer.com...[/email]
>> Hello Ignacio.
>> Many thanks for your help. I need some explanation with
>> variables spanish names in function PrintEtiqueta.
>>
>> By the way can we have sortly a new release with latest bug fixes.
>>
>> Many many thanks again
>> Regards
>> Dionisis
>>
>> Ï "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> Ýãñáøå óôï ìÞíõìá
>> news:45abba3e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Dionisis,
>>>
>>> No, there is not, but I include with this message a simple process that
>>> may help you to create your own labels. Try to understand the code. If
>>> you have any doubt feel free to ask.
>>>
>>> Regards,
>>>
>>> METHOD Button1Click( oSender ) CLASS TMyFrm
>>>
>>> LOCAL oRep, oFont
>>> LOCAL aEtiq
>>> LOCAL nEtiq, n
>>>
>>> FIELD SECTOR, NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA, PAIS,
>>> CONTACTO
>>>
>>> WITH OBJECT oFont := TFont():New()
>>> :cName := "Arial"
>>> :nSize := 10
>>> :Create()
>>> END WITH
>>>
>>> aEtiq := {}
>>> nEtiq := 0
>>>
>>> Application:lBusy := .T.
>>>
>>> ::lEnabled := .F.
>>>
>>> ::oDbf:SaveState( .T. )
>>>
>>> ::oDbf:Select()
>>>
>>> WITH OBJECT Printer
>>> :lPreview := .T.
>>> :cJobTitle := "Client labels"
>>> :StartDoc()
>>> :oCanvas:nMapMode := mmHIMETRICS
>>> :oCanvas:nTextAlignment := taLEFT
>>> :oCanvas:oFont := oFont
>>>
>>> GO TOP
>>>
>>> DO WHILE !Eof()
>>> IF nEtiq == 0 .AND. Len( aEtiq ) == 0
>>> :StartPage()
>>> ENDIF
>>> Aadd( aEtiq, { NOMBRE, DIRECCION, POBLACION, CPOSTAL, PROVINCIA,
>>> PAIS, CONTACTO } )
>>> IF Len( aEtiq ) == 2
>>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>>> aEtiq := {}
>>> IF ++nEtiq > 9
>>> :EndPage()
>>> nEtiq := 0
>>> ENDIF
>>> ENDIF
>>> SKIP
>>> ENDDO
>>>
>>> IF Len( aEtiq ) > 0
>>> PrintEtiqueta( :oCanvas, aEtiq, nEtiq )
>>> :EndPage()
>>> ENDIF
>>>
>>> :EndDoc()
>>> ::oDbf:RestoreState( .T. )
>>> ::Close()
>>> Application:lBusy := .F.
>>> :Preview( .T. )
>>>
>>> END WITH
>>>
>>> RETURN Nil
>>>
>>> #define ETIQ_ALTO 288
>>> #define ETIQ_ANCHO 1050
>>> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
>>> #define ETIQ_X1OFF 50
>>> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
>>>
>>> FUNCTION PrintEtiqueta( oCanvas, aEtiq, nEtiq )
>>>
>>> LOCAL cPob
>>> LOCAL nRow, nCol1, nCol2, nPaso
>>>
>>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>>> nCol1 := ETIQ_X1OFF
>>> nCol2 := ETIQ_X2OFF
>>> nPaso := Round( oCanvas:PixelsToMapMode( 0, Abs(
>>> oCanvas:oFont:nHeight ) )[ 2 ] * 1.2, 0 )
>>>
>>> WITH OBJECT oCanvas
>>> :TextOut( nCol1, nRow , aEtiq[ 1, 1 ] )
>>> nRow += nPaso
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 2 ] )
>>> nRow += nPaso
>>> cPob := Alltrim( Trim( aEtiq[ 1, 4 ] ) + " " + aEtiq[ 1, 3 ] )
>>> :TextOut( nCol1, nRow, cPob )
>>> nRow += nPaso
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 5 ] )
>>> nRow += nPaso
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 6 ] )
>>> nRow += nPaso
>>> IF !Empty( aEtiq[ 1, 7 ] )
>>> :TextOut( nCol1, nRow, aEtiq[ 1, 7 ] )
>>> ENDIF
>>>
>>> IF Len( aEtiq ) > 1
>>> nRow := nEtiq * ETIQ_ALTO + ETIQ_YOFF
>>> :TextOut( nCol2, nRow , aEtiq[ 2, 1 ] )
>>> nRow += nPaso
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 2 ] )
>>> nRow += nPaso
>>> cPob := Alltrim( Trim( aEtiq[ 2, 4 ] ) + " " + aEtiq[ 2, 3 ] )
>>> :TextOut( nCol2, nRow, cPob )
>>> nRow += nPaso
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 5 ] )
>>> nRow += nPaso
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 6 ] )
>>> nRow += nPaso
>>> IF !Empty( aEtiq[ 2, 7 ] )
>>> :TextOut( nCol2, nRow, aEtiq[ 2, 7 ] )
>>> ENDIF
>>> ENDIF
>>> END WITH
>>>
>>> RETURN NIL
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> http://www.xailer.com
>>>
>>>
>>> "Dionisis Divaris" <sv1fkk@hol.gr> escribió en el mensaje
>>> news:45ab9c72$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Hello to all.
>>>>
>>>> Is there any class or function to print labels ??
>>>>
>>>> TIA
>>>>
>>>> Dionisis
>>>>
>>>
>>>
>>
>>
>
>
T.I.A
Dionisis
SGS-soft
support.sgs@gmail.com
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

Any class for labels???

Mensaje por jfgimenez »

Dionisis,
> #define ETIQ_ALTO 288
> #define ETIQ_ANCHO 1050
> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
> #define ETIQ_X1OFF 50
> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
ETIQ: Abreviation of 'etiqueta': 'label'
ALTO: Height
ANCHO: Width
OFF: Abreviation of 'offset'
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

Any class for labels???

Mensaje por jfgimenez »

Dionisis,
> #define ETIQ_ALTO 288
> #define ETIQ_ANCHO 1050
> #define ETIQ_YOFF 332 - ETIQ_ALTO + 50
> #define ETIQ_X1OFF 50
> #define ETIQ_X2OFF ETIQ_X1OFF + ETIQ_ANCHO
ETIQ: Abreviation of 'etiqueta': 'label'
ALTO: Height
ANCHO: Width
OFF: Abreviation of 'offset'
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Responder

Volver a “Xailer Pro English”