oExcel.activesheet.Range("D"+TRIM(PADR(nrow,11))).ColumnWidth = 15 oExcel.activesheet.Range("D"+TRIM(PADR(nrow,11))).value = rpt012->itmcode oExcel.activesheet.Range("D"+TRIM(PADR(nrow,11))).ColumnWidth = 40 oExcel.activesheet.Range("D"+TRIM(PADR(nrow,11))).value = rpt012->descI found it the result have same column width 40.