实例——打印报表的脚注.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 18 行

    procedure TReportForm.PrintFooterReport2(Sender: TObject)；
    begin { 打印报表2的脚注 }
      with Sender as TBaseReport do
        begin
        SetFont('Times New Roman',8)；
        //调用TbaseReport组件的SetFont方法设置打印的字体和大小
        MarginBottom := 0.5；
        //设置报表的底部边界宽度
        PrintFooter('第' + IntToStr(CurrentPage)+'页',pjLeft)；
        //打印报表的页号
        PrintFooter('2003年2月16日',pjRight)；
        //打印报表的日期
        MarginBottom := 1.0；
      end； { with }
    end；  {打印报表2的脚注}