Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

Any class for labels???

https://forum.xailer.com/viewtopic.php?t=821

Página 1 de 1

Any class for labels???

Publicado: Lun Ene 15, 2007 4:23 pm
por Dionisis Divaris
Hello to all.
Is there any class or function to print labels ??
TIA
Dionisis

Any class for labels???

Publicado: Lun Ene 15, 2007 6:30 pm
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
>

Any class for labels???

Publicado: Lun Ene 15, 2007 6:30 pm
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
>

Any class for labels???

Publicado: Sab Ene 20, 2007 8:52 am
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
>>
>
>

Any class for labels???

Publicado: Sab Ene 20, 2007 8:52 am
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
>>
>
>

Any class for labels???

Publicado: Lun Ene 22, 2007 9:18 am
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
>>>
>>
>>
>
>

Any class for labels???

Publicado: Lun Ene 22, 2007 9:18 am
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
>>>
>>
>>
>
>

Any class for labels???

Publicado: Lun Ene 22, 2007 10:41 am
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
>>>>
>>>
>>>
>>
>>
>
>

Any class for labels???

Publicado: Lun Ene 22, 2007 10:41 am
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
>>>>
>>>
>>>
>>
>>
>
>

Any class for labels???

Publicado: Lun Ene 22, 2007 11:04 am
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

Any class for labels???

Publicado: Lun Ene 22, 2007 11:04 am
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
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España