Qreport 填满最后一页的空白

通常情况下，可以考虑用qrloopband来。qrloopband设计时一般在detailband之后，可以通过qrloopband.enable来控制qrloopband的显示与否，在最后一页计算需要多少行空白页，然后将qrloopband.enable:= true，并且设计qrloopband.printcount:=行数。

我是在动态生成报表的情况下，quickrep 等所有组件都是动态生成的。如果使用qrloopband，始终无法控制qrloopband的位置在detailband后，并且跟着detailband打印。所以最后使用detailband.childband（将detailband.haschild：＝true）。也是通过控制enable来控制显示。先quickrep.prepare，并在最后一页时计算行数n，然后quickrep.preview，在最后一行时根据刚才的计算动态生成n行qrshape（表示表格线）。

程序如下：（有些部门非必须，是测试用的，待注释）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, DB, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    ADOTable1: TADOTable;
    QRDBText1: TQRDBText;
    ChildBand1: TQRChildBand;
    QRLabel1: TQRLabel;
    SummaryBand1: TQRBand;
    procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure DetailBand1AfterPrint(Sender: TQRCustomBand;
      BandPrinted: Boolean);
    procedure ChildBand1AfterPrint(Sender: TQRCustomBand;
      BandPrinted: Boolean);
    procedure ChildBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
    lt:TStrings;
    index:Integer;
    j:Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  lt.Add('detailb'+':'+inttostr(QuickRep1.CurrentY));
end;

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
var
  I: Integer;
  sh :TQRshape;
begin
  lt.Add('detaila:'+inttostr(QuickRep1.CurrentY));
  // if QuickRep1.RecordCount=QuickRep1.RecordNumber then
  // begin
  //   ChildBand1.Enabled := true;                      
  //                                                    
  // end                                                
  // else                                               
  //   ChildBand1.Enabled := false;

  ChildBand1.Enabled := false;
  if index=1 then
  begin

  if QuickRep1.RecordCount=QuickRep1.RecordNumber then
  begin

    if QuickRep1.CurrentY+QuickRep1.Bands.SummaryBand.Size.Height+40<
      QuickRep1.Page.Length-QuickRep1.Page.BottomMargin then
    begin
      j := trunc((QuickRep1.Page.Length-QuickRep1.Page.BottomMargin-
        QuickRep1.CurrentY-QuickRep1.Bands.SummaryBand.Size.Height) / (106) );

       QuickRep1.Bands.DetailBand.ChildBand.Enabled := true;
    end;
  end;
  end
  else  begin

  if QuickRep1.RecordCount=QuickRep1.RecordNumber then
  begin
       QuickRep1.Bands.DetailBand.ChildBand.Enabled := true;

  end
  else
    QuickRep1.Bands.DetailBand.ChildBand.Enabled := false;

  end;
   
end;

procedure TForm1.ChildBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
  lt.Add('ca');
end;

procedure TForm1.ChildBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  lt.Add('cb');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lt := TStringList.Create;
  index := 1;
  QuickRep1.Prepare;
  index := 2;
  QuickRep1.PreviewModal;
  lt.SaveToFile('I:/tmp/theight.txt');
  lt.Free;

end;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  sh:TQRShape;
  i:Integer;
begin
    if index=2 then
    begin
      for I := 0 to j - 1 do    // Iterate
      begin
        sh  := TQRShape.Create(nil);
        sh.Parent := QuickRep1.Bands.DetailBand.ChildBand;
        sh.Top := 40*i;
        sh.Left := 10;
        sh.Width := 300;
        sh.Height := 41;

      end;    // for

       QuickRep1.Bands.DetailBand.ChildBand.Height := 40 * j+2;
    end;
     
end;

end.