Доклад: Работа с EXCEL: приёмы оформления документа (отчёта)
// Выравнивамполевомукраю
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;
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;