procedure TReportForm.PrintFooterReport2(Sender: TObject)；
    begin { 打印報表2的腳注 }
      with Sender as TBaseReport do
        begin
        SetFont('Times New Roman',8)；
        //調(diào)用TbaseReport組件的SetFont方法設(shè)置打印的字體和大小
        MarginBottom := 0.5；
        //設(shè)置報表的底部邊界寬度
        PrintFooter('第' + IntToStr(CurrentPage)+'頁',pjLeft)；
        //打印報表的頁號
        PrintFooter('2003年2月16日',pjRight)；
        //打印報表的日期
        MarginBottom := 1.0；
      end； { with }
    end；  {打印報表2的腳注}