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

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

    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的脚注}