>How ?
>
>would you like to send to here a sample ?
#DEFINE xlInsideHorizontal 12
#DEFINE xlInsideVertical 11
#DEFINE xlDiagonalDown 5
#DEFINE xlDiagonalUp 6
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeLeft 7
#DEFINE xlEdgeRight 10
#DEFINE xlEdgeTop 8
#DEFINE xlContinuous 1
#DEFINE xlDash -4115
#DEFINE xlDashDot 4
#DEFINE xlDashDotDot 5
#DEFINE xlDot -4118
#DEFINE xlDouble -4119
#DEFINE xlSlantDashDot 13
#DEFINE xlLineStyleNone -4142
lcExcelFile = SYS(5)+CURDIR()+'excelborder.xls'
SELECT * from orders INTO CURSOR dummy
COPY TO (lcExcelFile) TYPE xl5
LOCAL loExcel
loExcel = CreateObject("Excel.Application")
with loExcel
.Workbooks.Open(lcExcelFile)
.ActiveWorkbook.ActiveSheet.UsedRange.Borders.Linestyle = xlDouble
.Visible = .T.
ENDWITHCetin
