Предыдущая страница реферата | 1  2  3  4

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders.Weight := 2;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[4].ColorIndex := 1;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[1].ColorIndex := -4142;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[2].ColorIndex := -4142;

XL.WorkBooks[1].WorkSheets[1].Range['A' + IntToStr(i) + ':' + chr(ord('C')+n) + IntToStr(i)].Borders[3].ColorIndex := -4142;

// обрисовка диапазона ячеек

XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.LineStyle := 1;

XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.Weight := 2;

XL.WorkBooks[1].WorkSheets[1].Range['A3:' + chr(ord('C')+n) + IntToStr(i)].Borders.ColorIndex := 1;

// присвоение ячейке значения

XL.WorkBooks[1].WorkSheets[1].Cells[i,j] := 'К-во';

// Поворачивать слова, писать вертикально, под углом и т.д.

XL.WorkBooks[1].WorkSheets[1].Rows[2].Orientation := 90;

XL.WorkBooks[1].WorkSheets[1].Range['A2:B2'].Orientation := 0;

Скачали данный реферат: Корепанов, Тарас, Varsonof, Скородумов, Serafima, Glinin, Toropov.
Последние просмотренные рефераты на тему: курсовые и дипломные работы, решебник, мировая экономика, курсовая работа по праву.



Предыдущая страница реферата | 1  2  3  4

Поделитесь этой записью или добавьте в закладки