Форум

oAS:columns(1):ColumnWidth:=7 //ширина 1-й колонких

    oAS:Range("C"+Var2Char(nLine)):WrapText:=.T.

.getRows.getByIndex(2).OptimalHeight(.T.)

  oApp := OleCreateObject("com.sun.star.ServiceManager") 
//(Хотя как я понял там еще что-то требуется, чтобы "создать" CAlc)

 oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги
 oAS:=oWorkBook:Worksheets():Add() //добавление таблицы


 oAS:Name:="Имя табл" //присвоение имени таблице
 oRange:=oAS:Range("A1:F1") //определение интервала ячеек
 oRange:font:bold:=.T. //выдленный шрифт на этом интервале
 oRange:MergeCells:=.T. //объединение ячеек в интервале
 oRange:value:="Готовые изделия на складе для организации " //запись текста
 oAS:columns(1):ColumnWidth:=7 //ширина 1-й колонки


 oAS:Range("A2"):formula:="Группа"//"Дт счет" //Запись заголовов столбцов

 oRange:=oAS:Range("A1:F2") //определение интервала ячеек
 oRange:font:bold:=.T. //выдленный шрифт на этом интервале

 oRange:HorizontalAlignment:=xlCenter // по горизонтали - в центре
 oRange:VerticalAlignment:=xlTop //по вертикали - у верхнего края


   oAS:Cells(nLine,2):NumberFormat:="@" //текстовой формат
   oAS:Cells(nLine,2):Value:=(AllTrim(TempF->NNUM))
   oAS:Range("C"+Var2Char(nLine)):WrapText:=.T. //свойство ячеек -перенос текста



 oRange:Borders(11):LineStyle:=xlContinuous //снизу - граница сплошной линией
 oRange:Borders(xlEdgeBottom):Weight:=xlThin //ширина линии - обычная