生成Excel表格网格线的显示如何控制，怎样才能打印显示出来？(50分)

谢谢啦。

问题太简单了？还是分太少？我分不多了老大门，帮帮忙吧。

仅供参考：

excelapplication1.visible[0]:=true;

excelapplication1.workbooks.add(xlWBATWorksheet,0);
asheet:=excelapplication1.worksheets.item[1];


datamodule1.query1.First;
nc:=datamodule1.query1.RecordCount+1 ;
nf:=datamodule1.Query1.FieldCount ;

asheet.PageSetup.CenterFooter := '第 &P 页 总 &N 页';

asheet.Range[asheet.cells[1,1],asheet.cells[nc,nf]].Borders.LineStyle:=1; //

asheet.Range[asheet.cells[1,1],asheet.cells[nc,nf]].HorizontalAlignment := xlCenter;
asheet.Range[asheet.cells[1,1],asheet.cells[nc,nf]].HorizontalAlignment := xlCenter;
asheet.Range[asheet.cells[1,1],asheet.cells[nc,nf]].wraptext:=true;
asheet.Range[asheet.cells[1,1],asheet.cells[1,nf]].font.name := '黑体';

打印网格线
Xlapp.ActiveSheet.PageSetup.PrintGridLines := true;

多谢两位相助，一定给分答谢。
to:myid0602
对ExcelXP没用，还是我设置的不对？

多人接受答案了。