[poli-smen]

Сообщение от DOR

Помогите пжл выставить ширину столбца, пересмотрел много примеров, ноне один не смог перенести на свой код.

Код:

      ExcelApplication1.Connect;
      WBook := ExcelApplication1.Workbooks.Add(EmptyParam, lcid);
      WSheet := WBook.Worksheets[1] as ExcelWorksheet;

      WSheet.Columns[1].ColumnWidth := 6;
      WSheet.Cells.Item[6,1].Value := '№';
      WSheet.Cells.Item[6,1].HorizontalAlignment := xlCenter;
      WSheet.Cells.Item[6,1].Borders.LineStyle := xlContinuous;
      WSheet.Cells.Item[6,1].Interior.ColorIndex:= 34;

Пробуй так:

Код:

WSheet.Cells.Item[6,1].ColumnWidth := 6;