如何实现 QR 的并排打印(100分)

我有一个表,里面记录了人员信息,现在要打印成员工卡.
一条记录对应一张员工卡.
希望在QR中一行能左右并排打印两张卡.
但QR好象只能打印出一列
不知有没有简单的方法可以实现我的要求

可以打印 多列
TQuickRep.Page.Columns：＝2
记到给分哈 呵呵！

可是,打印出现的结果还是一列啊!
我是这样设置的
QuickRep->DateSet = ADOQuery1;
QRBand->BandType = rbDetail;
然后在这个 QRBand 中放置几个 QRDBText 和几个 QRDBImage
我已经设置了 TQuickRep->Page->Columns＝2;
但是打印出现的员工卡片仍是都在左边一列上

我的意思是这样的.
有一个员工信息表,按记录打印成员工卡.
现在只能如下打印出一列来,一张A4纸可以打出5张卡
1
2
3
4
5
而一张A4纸宽度可以打两张员工卡,则A4纸的右部全都浪费了
所以想打成
1 2
3 4
5 6
7 8
9 10
这个样子

我知道你的意思！ 我以前帮公司写过工资单打印，就是两列。
我现在在QQ 你加我 1111445

我现在试了,只能打印出一列来.

在quickrep中有一个onneeddata事件，在该事件中给出打印代码，注意的是quickrep不能和数据集有连接,以下是一个打印三排的例子
--处理挂号明细
var
I: integer;
begin
MoreData := True;
i:=1;
for i:=1 to 3do
begin
if addjb.eof then
break;
case I of
1: begin
QRLabel12.Caption := '';
QRLabel13.Caption := addjb.FieldByName('s1').AsString;
QRLabel14.Caption := addjb.FieldByName('s2').AsString;
no:=no+1;
end;
2: begin
QRLabel15.Caption := '';
QRLabel16.Caption := addjb.FieldByName('s1').AsString;
QRLabel17.Caption := addjb.FieldByName('s2').AsString;
no:=no+1;
end;
3: begin
QRLabel18.Caption := '';
QRLabel19.Caption := addjb.FieldByName('s1').AsString;
QRLabel20.Caption := addjb.FieldByName('s2').AsString;
no:=no+1;
end;
end;
addjb.Next;
end;
if addjb.Eof then
MoreData := False;
end;

55 ~~~!我的分

多人接受答案了。