我把數据送入EXCEL里面再打印出來,遇到下面問題:(20分)

我把數据送入EXCEL里面再打印出來,遇到下面問題:
1,沒有打印出的EXCEL的表格,只是把數据打印出來.
2,我想控制打印出的EXCEL的表格的行數,
比如:我只要前20行打印出的EXCEL的表格,后面的行不要打印出的EXCEL的表格
我的代碼入下:
msexcel :=createoleobject('excel.application');
msexcel.visible :=true ;
workbook :=msexcel.application ;
workbook.workbooks.open('c:/2.xls');
worksheet :=workbook.activesheet ;
msexcel.cells(1,3):=edit6.Text ;
msexcel.cells(2,3):=edit7.text ;
msexcel.cells(2,4):=edit15.Text ;
msexcel.cells(2,5):=edit16.Text ;
msexcel.cells(3,2):=edit8.Text ;
msexcel.cells(4,3):=edit1.Text ;
msexcel.cells(4,6):=combobox1.Text ;
msexcel.cells(4,8):=edit2.Text ;
msexcel.cells(6,2):=edit3.Text ;
msexcel.cells(6,3):=edit4.Text ;
msexcel.cells(7,2):=''''+edit5.Text ;
decodedate(datetimepicker1.date,year,month,day);
msexcel.cells(11,4):=inttostr(year)+' '+inttostr(month)+' '+inttostr(day);
msexcel.cells(11,6):=edit9.Text ;
msexcel.cells(12,4):=edit10.Text ;
msexcel.cells(20,4):=edit11.Text ;
msexcel.cells(21,4):=edit12.Text ;
msexcel.cells(22,4):=edit13.Text ;
msexcel.cells(23,2):=edit14.Text ;
msexcel.activesheet.printout ;
msexcel.save ;
// msexcel.activeworkbook.saved :=true ;//abort to save disk
msexcel.workbooks.close ;
msexcel.quit ;
msexcel:=unassigned ;
//put the excel into ole control
olecontainer1.CreateLinkToFile('c:/2.xls',false);
end;

嗯，在编程上我是一个菜鸟了，呵呵：）
我不知道你的问题是仅仅是应用中的还是编程的
如果是编程的，下面可以不用看了，我还没有学VB，
我写的不是这方面的内容

如果你只是要操作，应用的话，请往下看
对于问题一，你是想说只要打印数据还是不只要打印数据？
我的理解是，你在格式对话框里面有一个边框的选项页，你可以
选择边框，就可以不只打印数据了（PS:不知道是不是你想要的答案）
问题二，呵呵，如果不是编程的话，就更好办了，你可以在二十行下
面插入一个分页符，打印时要打印到什么地方就什么地方
（呵呵，这两个我都没有试过，因我没有打印机，而excel在没有
打印机时是无法预览的，也许会错吧：））

下个控件吧，是DXDBGRID吧，用它显示的数据集可直接 savetoxls