打印报表的脚注

原创于 2009-02-20 09:53:00 发布 · 285 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个打印报表脚注的示例代码，演示了如何使用TBaseReport组件设置字体、边距，并打印页码和日期等信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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