有一个数据库，很大，字段名也很多，超过了A4的打印宽度，我用什么办法把这个数据库里的数据全部打印出来呢？

Question

有一个数据库，很大，字段名也很多，超过了A4的打印宽度，我用什么办法把这个数据库里的数据全部打印出来呢？而且要很整洁，

Answer 1

自定義了，可讓你跟心所欲：
 new(Plab);
  Plab^:=tqrlabel.Create(self);
  Plab^.Parent:=rep^.Bands.PageHeaderBand;
  Plab^.ParentFont :=true;
  Plab^.Caption :='訂單單號';
  Plab^.Top :=t+12;
  Plab^.Left :=109;
  dispose(plab);
..............
   while not qyweek.Eof do
  begin
    new(Plab);
    Plab^:=tqrlabel.Create(self);
    Plab^.Parent:=rep^.Bands.DetailBand;
    Plab^.ParentFont :=true;
    Plab^.Caption :=datetostr(qyweek.fieldbyname('checkdate').asdatetime);
    Plab^.Top :=Current;
    if Plab^.Width>=49 then
      Plab^.Left :=39-(Plab^.Width div 2 -49 div 2)
    else
      Plab^.Left :=39+abs(Plab^.Width div 2 -49 div 2);
    dispose(plab);
...............

Answer 2

fastReport可以自动折页打印，devexpress PrintSystem可以缩小打印

Answer 3

使用FastReport，建立交叉报表，可以打印所有字段，如同Excel一样。

Answer 4

老大，FASTREPORT在哪个版面上呀，我的DELPHI6.0找半天都没看到 晕。。