复杂报表谁有高招？(100分)

各位大侠：
小弟工作中遇到大量的（注意：是大量的）
复杂的不规范报表；例如：
——————————————————--
|A类| 商品 | 库存| 销售额| 毛利 |
|—-|———|-——-|———-|————--|
| | A商品| | | |
|其 | B商品| | | |
| | . | | | |
| | ' | | | |
|中 | ' | | | |
| |———|———|———-|————--|
| | 合计 | | | |
|—-|———————————————--|
|B类| |销售数量 | 毛利 |单件毛利|
|—-|———|————-|———|--------|
| | X商品| | | |
|其 | Y商品| | | |
| | . | | | |
| | ' | | | |
|中 | ' | | | |
| |———|—---——|----—|----——|
| | 合计 | | | |
———————————————————
总之,数据组织并不困难，但打印输出不规范，
由于量比较大，所以，不太可能逐一用代码实
现，利用Qreport又无法实现，小弟不才，实
在不知如何处理，求各大侠帮忙，指点迷津！

用 COMOBJ 输出到EXCEL

用Cell组件，满不错的说，
或者，用自动化对象操作Execl也是一法

二位仁兄能说的具体些吗？
小弟是新手！

g

我也遇到了此类问题，我也想知道如何解决

先问一句
excel会使吗？

uses comobj;
procedure printpay1;
var
i,j:integer;
typef:smallint;
msexcellevariant;
wbook,wsheetlevariant;
begin
with reportfrm,DataModule1.qrydo
begin
Close;
sql.clear;
sql.add('select sccj,cjmc,sum(yfks),sum(yfks-wfks),sum(wfks) from cjfmx group by sccj,cjmc ');
sql.add(' union select 10000,' + '''合计'''+',sum(yfks),sum(ffks),sum(wfks) from cjfmx ');
open;
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
wbook.workbooks.Open(ExtractFileDir(paramstr(0))+'/pay1.xls');//
//*.xls 预先作好
WSheet:=WBook.ActiveSheet;
for i:=1 to recordcountdo
begin
for j:=1 to fieldcountdo
wsheet.cells[i+1,j].value:=fields[j-1].asstring;
next;
end;
DataModule1.qry.close;
WBook.Visible:= True;
end;
end;

listen.

g

徐丹请问你是怎样知道我的EMAIL的？
EXCEL中报表可参考
http://home4u.china.com/technology/programming/jsgc/js/g-.zip
g-计算打印（2000-02-24 185KB）Excel97文件：
我工作上用的，程序可用但很差，以后重新写

点你的名字，便得到了，感谢你热情的帮助！

多人接受答案了。