delphi中编写 web报表 打印和御览功能的asp组件的实现方法(100分)

本人预用delphi中编写 web报表 打印和御览功能的asp组件，没有具体的方法和思路希望那位
高手指点一二。谢谢！

up

会做acitvex控件或activexform就会做

能否给个大致的实现思路和一些调试过程中要注意到的问题！谢谢

<STYLE MEDIA="print">
#navmenu {display: none}
#article {width: 6.5in}
#article {height: 9.2in}
#x1 {display: none}
#x2 {display: none}
#x3 {display: none}
#divideFlagTitle {page-break-before:always}
</STYLE>
<script language="JavaScript">
functiondo
PrintSetup()
{
//打印设置
//cancelDividePage();
WB.ExecWB(8,1);
}
functiondo
PrintPreview()
{
//打印预览
//dividePage();
WB.ExecWB(7,1);
//cancelDividePage();
}
functiondo
Print()
{
//打印当前页
//dividePage();
WB.ExecWB(6,1);
//cancelDividePage();
}
</script>
然后再body中
<OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 WIDTH=0 HEIGHT=0 id=WB ></OBJECT>
&amp;nbsp;&amp;nbsp;&amp;nbsp;<a onclick="javascript:doPrintSetup()" id="x1" style="cursor:hand;"><b>[打印设置]</b></a>
&amp;nbsp;&amp;nbsp;&amp;nbsp;<a onclick="javascript:doPrintPreview()" id="x2" style="cursor:hand;"><b>[打印预览]</b></a>
&amp;nbsp;&amp;nbsp;&amp;nbsp;<a onclick="javascript:doPrint()" id="x3" style="cursor:hand;"><b>[打&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;印]</b></a>
&amp;nbsp;&amp;nbsp;&amp;nbsp;<a onclick="javascript:window.close();" id="x3" style="cursor:hand;"><b>[关&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;闭]</b></a>