Page 1 of 1
Alguien me puede facilitar la clase texcels ?
Posted: Thu Mar 26, 2009 12:24 am
by Erick Almanza
Hola amigos del foro
Por favor me puede facilitar la clase texcelscript
Trate de bajarla de utilidades, pero hay un problema con el link
Gracias,
Saludos,
erick
FWH 8.6, XHARBOUR, BCC55
Re: Alguien me puede facilitar la clase texcels ?
Posted: Thu Mar 26, 2009 8:11 am
by alfonso
Hola,
Enviame tu email y te la envio.
Saludos,
Alfonso
Re: Alguien me puede facilitar la clase texcels ?
Posted: Thu Mar 26, 2009 7:01 pm
by Erick Almanza
alfonso wrote:Hola,
Enviame tu email y te la envio.
Saludos,
Alfonso
Gracias Alonso por contestar prontamente
Mi correo es
dicoms@gmail.com
Re: Alguien me puede facilitar la clase texcels ?
Posted: Fri Mar 27, 2009 4:43 pm
by alfonso
Hola Erik,
Te envie un correo y me ha devuelto error.
¿Algun problema?
Saludos,
Alfonso
Re: Alguien me puede facilitar la clase texcels ?
Posted: Sat Mar 28, 2009 4:39 am
by anserkk
Re: Alguien me puede facilitar la clase texcels ?
Posted: Sun Mar 29, 2009 8:54 am
by dobfivewin
Muchas gracias de mi parte.....
Podrian publicar algún ejemplo de como usar esta clase
saludos
david
argentina
Re: Alguien me puede facilitar la clase texcels ?
Posted: Mon Mar 30, 2009 6:49 pm
by Erick Almanza
dobfivewin wrote:Muchas gracias de mi parte.....
Podrian publicar algún ejemplo de como usar esta clase
saludos
david
argentina
ejemplo 1
FUNCTION Test()
LOCAL cOrigen := cFilePath( GetModuleFileName( GetInstance() )) + "browse.xls"
LOCAL i
oExcel := TExcelScript():New()
** oExcel:add( )
oExcel:Open( cOrigen )
oExcel:visualizar(.T.)
FOR i := 1 TO 4
oExcel:AutoFit( i )
NEXT
oExcel:SetPrintArea("A1:D20")
oExcel:Margins( 0 , 50 )
oExcel:Headers( 1 , "Titulo Superior" )
oExcel:Footers( 2 , "Footer Izquiedo con numero de paginas..."+"&P" )
oExcel:Zoom( 110 ) // Ajuste al 110% de tamaño de la Hoja
oExcel:say( 20,20, "AGREGAR TEXTO ")
oExcel:lCenterH( .T. )
oExcel:lCenterV( .T. )
oExcel:SetLandScape()
oExcel:SetPage( 1 ) // Papel Tamaño Carta
oExcel:Save( )
RETURN ( .T. )
EXIT PROCEDURE Cerrar()
oExcel:End(.F.) ; oExcel := NIL
RETURN