excel表格的问题！急！

[IAMUN]

现在我又遇到一个问题：用ExcelWorkbook.saveas()生成的excel表格那个网格线是默认没有的，打印出来没有网格线，代码怎么设置呢？还有那些两个单元格合并或者类似如下的情形
怎么生成呢？
-------------------------------
| abc | |
|----------
|bcd | def |
____________
abc一个单元格，bcd和def是下面的两个单元格。急求！

[Drate]

格式设置
选择Excel作为报表服务器主要是因为它强大的格式化能力。我们首先把标题"通讯录"进行单元格合并，居中显示，然后修改字体为18磅的"隶书"，粗体：
with wkSheet.Range['A1','D1'],Font do
begin
Merge(True); //合并单元格
HorizontalAlignment:= xlCenter;
Size:=18;
Name:='隶书';
FontStyle:=Bold;
end;
如果单元格内容较长，将有部分内容无法显示，通常的做法是双击选定区域右侧的边线是各列的宽度自动适应内容的长度。在Delphi中通过AutoFit方法也可实现自适应的列宽行高，需要注意的是该方法仅能用于整行整列，否则会提示OLE方法拒绝执行的错误：
wkSheet.Columns.EntireColumn.AutoFit;
中式报表通常需要上下封顶的表格线，可以使用Borders集合属性。要注意，VBA中的集合对象通常都有一个缺省的Item属性，Delphi中是不能省略的。Weight属性用于定义表格线的粗细：
with Aname.RefersToRange,Borders do
begin
HorizontalAlignment:= xlRight;
Item[xlEdgeBottom].Weight:=xlMedium;
Item[xlEdgeTop].Weight:=xlMedium;
Item[xlInsideHorizontal].Weight:=xlThin;
item[xlInsideVertical].Weight:=xlThin;
end;

[gardenyang]

up

[Drate]

k.打印单元格网线：
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
l.合并单元格
ExcelApp.ActiveSheet.Range['C1:K1'].Select;
ExcelApp.Selection.HorizontalAlignment := xlCenter;
ExcelApp.Selection.VerticalAlignment := xlBottom;
ExcelApp.Selection.MergeCells := False;
ExcelApp.Selection.Merge;

[IAMUN]

thanks

[IAMUN]

1