>Budianto,
>IMHO easiest is to use one of predefined formats.
>
Use customer
>Copy to customerxls type xls
>
>#include xlconstants.h
>oExcel=createobject('Excel.Application')
>With oExcel
> .Workbooks.Open(sys(5)+curdir()+'customerxls.xls')
> With .ActiveWorkBook.ActiveSheet
> .Range("A1").AutoFormat(xlRangeAutoFormatColor2)
>*!* *Format headers
>*!* .Cells(1,1).VALUE = "Customer Id"
>*!* * Format the data
>*!* .RANGE("1:1").FONT.Bold=.T.
>*!* .RANGE("L:L").NumberFormat = [_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)]
>*!* With .Range('A:A').Font
>*!* .Bold = .t.
>*!* .Size = 12
>*!* .Color = rgb(255,0,0)
>*!* Endwith
>*!* With .Range('B:B').Font
>*!* .Bold = .t.
>*!* .Italic=.t.
>*!* .Size = 12
>*!* .Color = rgb(0,0,255)
>*!* Endwith
>*!* With .Range('E:E').Font
>*!* .Bold = .t.
>*!* .Italic=.t.
>*!* .Size = 12
>*!* Endwith
>*!* .Columns.Autofit
> .Range("A1").select
> Endwith
> .visible = .t.
>Endwith
>
Comment autoformat line and uncomment the commented to see custom formatting.
>Cetin
Thank you very much, Cetin, it work very well, but I still can't find the way to make a line or a box and to align a text in a column.
btw, where can I find this Excel setting in Visual Foxpro ?
TIA
Budianto