with ExcelWorkSheet1 do
begin
Range[Cells.items[1,1],Cells.Item[2,1].Font.Bold := True;
Range[Cells.items[1,1],Cells.Item[2,1].Font.Size := 14;
Cells.Item[1,1] := '델파이와 엑셀을 이용한 프로그램';
end;
//AutoFormat이용
var
MyRange : Range;
with ExcelWorksheet do
begin
MyRange := Range[Cells.item[4,1],Cells.Item [Table1.RecordCount,Table1.FieldCount]];
MyRange.Autoformat(xlRangeAutoFormatColor1,null,null,null,null,null,null);
end;
//폰트와 사이즈지정하는 법
with ExcelWorkSheet1 do
begin
Range[Cells.items[1,1],Cells.Item[2,1].Font.Bold := True;
Range[Cells.items[1,1],Cells.Item[2,1].Font.Size := 14;
Cells.Item[1,1] := '델파이와 엑셀을 이용한 프로그램';
end;
//AutoFormat이용
var
MyRange : Range;
with ExcelWorksheet do
begin
MyRange := Range[Cells.item[4,1],Cells.Item [Table1.RecordCount,Table1.FieldCount]];
MyRange.Autoformat(xlRangeAutoFormatColor1,null,null,null,null,null,null);
end;
이렇게 사용해보세요..