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
Board index FiveWin para Harbour/xHarbour Alguien me puede facilitar la clase texcels ?
Hola,
Enviame tu email y te la envio.
Saludos,
Alfonso
alfonso wrote:Hola,
Enviame tu email y te la envio.
Saludos,
Alfonso
Gracias Alonso por contestar prontamente
Mi correo es dicoms@gmail.com
Hola Erik,
Te envie un correo y me ha devuelto error.
¿Algun problema?
Saludos,
Alfonso
Muchas gracias de mi parte.....
Podrian publicar algún ejemplo de como usar esta clase
saludos
david
argentina
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