请教如何设置数据报表的分栏，如能解答分另送。 (0分)

请教如何设置数据报表的分栏，用qreport控件作的报表。
具体情况是这样的：我有全校的准考证号，我现在要在B5纸上打印，
显然要分栏打印，不然浪费严重。所以请教如何分栏打印，而且数据也会自动排列。如：
一年级一班 一年级一班
李三 李四
20020202001 20020202002
如能解答分另送。

是用qreport做的报表。

自己写qreport的ONNeedData事件
如二联报表
Var
i:integer;
begin
MoreData:=True;
for I:= 1 to 2do
begin
if Dataset.Eof then
Break;
case I of
1:begin
QRname1.Caption :=dataset.FieldByName('nane').AsString;
QRCode1.Caption :=dataset.FieldByName('code').AsString;
end;
2:begin
QRname2.Caption :=dataset.FieldByName('nane').AsString;
QRCode2.Caption :=dataset.FieldByName('code').AsString;
end;
end;
dataset.Next;
end;
if dataset.Eof then
MoreData := False;

接受答案了.