gcDelimName = ALIAS( ) + '.xls' gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') IF EMPTY(gcDelimFile) CANCEL ENDIF gcDelimfile = forcepath(m.gcDelimfile,'c:\dept\zarqa\') COPY TO (gcDelimFile) XLS Local loExcel xlDown = -4121 xlLastCell = 11 loExcel = CREATEOBJECT('Excel.Application') loExcel.DisplayAlerts = .F. LoWb = loExcel.WorkBooks.OPEN(gcDelimFile) loWs = loExcel.WorkSheets(1) loWs.Rows("1:"+Transform(3)).insert(xlDown) lows.Range(lows.Cells(1,1),lows.Cells(1,lows.Application.ActiveCell.SpecialCells(xlLastCell).Column) ).MergeCells = .T. loWS.cells(1,3).Font.bold = .t. loWS.cells(1,3).Font.Size= 14 loWS.cells(1,1) = " O??) "+TRANSFORM(YEAR(DATE()))+'/'+TRANSFORM(MONTH(DATE())-1) loWS.cells(1,1).Font.bold = .t. loWS.cells(1,1).Font.Size= 14 *loExcel.VISIBLE = .T. *loExcel = NULLthanks