RT!

解决方案 »

  1.   

    有一个控间可以办到,就在quickrep页
      

  2.   

    简单:    object PageFooterBand1: TQRBand
          Left = 38
          Top = 401
          Width = 718
          Height = 40
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          AlignToBottom = False
          Color = clWhite
          ForceNewColumn = False
          ForceNewPage = False
          Size.Values = (
            105.833333333333
            1899.70833333333)
          BandType = rbPageFooter
          object QRExpr1: TQRExpr
            Left = 264
            Top = 16
            Width = 124
            Height = 17
            Frame.Color = clBlack
            Frame.DrawTop = False
            Frame.DrawBottom = False
            Frame.DrawLeft = False
            Frame.DrawRight = False
            Size.Values = (
              44.9791666666667
              698.5
              42.3333333333333
              328.083333333333)
            Alignment = taLeftJustify
            AlignToBand = False
            AutoSize = True
            AutoStretch = False
            Color = clWhite
            ResetAfterPrint = False
            Transparent = False
            WordWrap = True
            Expression = 'SUM(ADOQuery1.ID)'
            FontSize = 10
          end
        end
      end我想你应该可以看明白吧