请问如何做多列的报表 (100分)

请问如何做多列的报表，如
编号 名称 编号 名称
1 11
2 12
3 13
4

10

如果你做的你這樣格式這樣話不怎麼好控制，這樣還可看你的需求如果頁數多的話這樣控制會有一點困難：如果做以下這種格式會比較好控制一點。
编号 名称 编号 名称
1 2
3 4
n n+1
代碼如下：(這是我在寫程序中所寫的一段代碼，看可不可以幫你)
var v,st:variant;
p,j,i:integer;
begin

v:=createoleobject('excel.application');
v.visible:=true;
v.workbooks.add(getcurrentdir+'/report/exam.xls');
st:=v.workbooks[1].worksheets[1];
p:=4;i:=0;j:=0;
while LNexamForm.ADOQuery1.Eof=falsedo
begin
i:=i+1;
st.cells[p,j+1]:=i;
st.cells[p,J+2]:=LNexamForm.adoquery1cardno.AsString;
st.cells[p,J+3]:=LNexamForm.ADOQuery1name.AsString;
st.cells[p,J+4]:=LNexamForm.ADOQuery1grade.AsString;
j:=j+4;
if i mod 2=0 then
(如果是n列的話，就把 2 改成 n 就可以）
begin
p:=p+1;
j:=0;
end;
LNexamForm.ADOQuery1.Next;
end;
end;

用QR、FR均可实现，不过要自己写代码。

用分栏，每页通过页长度控制行的输出数量

多人接受答案了。