如何把一个字段的值,横着打印出来(在QR中),就象是一条纪录一样?我想不通

Question

while Table1.Eof do begin
  S := ',' + S + Table1.FieldByName('Field1').AsString;
  Table1.Next;
end;
Delete(S, 1, 1);
QRLabel1.Caption := S;

Answer 1

to：　zswang(zs)　
但是如果一行打不开,怎么办?
另外吧它方到哪个事件里?

Answer 2

while not Table1.Eof do begin
  S1 := S1 + '收入类型  金额      '
  S2 := S2 + Format('%8s  %4d', [Table1.FieldByName('收入类型').AsString, Table1.FieldByName('金额').AsInteger]) + '      ';
  Table1.Next;
end;
QRLabel1.Caption := S1;  
QRLabel2.Caption := S2;  
 

Answer 3

QRLabel1.Caption 直接赋值就可以了,要事件吗?就是点打印的事件
我不喜欢用QR
现在用MS的Word或Excel
用户比较喜欢
我现在没有装Delphi
还有问题发邮件给我

Answer 4

to：　zswang(zs)　:
谢谢,我试试

Answer 5

我用excel作出来了，不过不太好看