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

// Выравнивам по центру по вертикали

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

// Выравнивам по центру по горизонтали

XL.WorkBooks[1].WorkSheets[1].Rows[1].HorizontalAlignment := 3;

// Обьединяем ячейки

XL.WorkBooks[1].WorkSheets[1].Range['A1:D1'].Merge;

// Выравнивам по центру по вертикали

XL.WorkBooks[1].WorkSheets[1].Rows[3].VerticalAlignment := 2;

// Выравнивам по центру по горизонтали

XL.WorkBooks[1].WorkSheets[1].Rows[3].HorizontalAlignment := 3;

// Выравнивам по левому краю

XL.WorkBooks[1].WorkSheets[1].Cells[3,2].HorizontalAlignment := 2;

XL.WorkBooks[1].WorkSheets[1].Cells[3,3].HorizontalAlignment := 2;

// Выравнивам по правому краю

XL.WorkBooks[1].WorkSheets[1].Cells[3,4].HorizontalAlignment := 4;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Color := clBlack;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Name := 'Times New Roman';

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Size := 12;

XL.WorkBooks[1].WorkSheets[1].Rows[3].Font.Bold := True;

XL.WorkBooks[1].WorkSheets[1].Cells[3,1] := '№';

XL.WorkBooks[1].WorkSheets[1].Cells[3,2] := 'Наименование продукции';

XL.WorkBooks[1].WorkSheets[1].Cells[3,3] := 'Ед. изм.';

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

// Borders[1] .... [4] - это края ячейки ColorIndex -4142 - пустой цвет i и n - переменные

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

Рекомендуем скачать другие рефераты по теме: антикризисное управление, ценные бумаги реферат.



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

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