QuickReport讀數據打印並分頁，預覽定制

procedure TForm10.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  DM.ADO3.First;
  Str:=Trim(DM.ADO3.FieldByName('ID').AsString);
  Rows:=1;
end;

procedure TForm10.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
var
   i,j,k:Integer;
begin
  j:=0;k:=0;
  MoreData:=True;   "表示有數據讀，再打印
  if not DM.ADO3.Eof then
    begin
      if Rows > 2 then
        begin
          QuickRep1.NewColumn;
          Rows:=1;
        end;
      QRClear;
//-------------------------
      for i:=0 to 11 do
        begin
          if (Str = Trim(DM.ADO3.FieldByName('ID').AsString))and(not DM.ADO3.Eof) then
            begin
              j:=1;
              QRNO.Caption:=Str;
              Case i of
               11:begin