打印报表标题

最新推荐文章于 2025-11-03 11:21:00 发布

原创最新推荐文章于 2025-11-03 11:21:00 发布 · 293 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    procedure TRpForm.RvNDRWriter1NewPage(Sender: TObject)；
    begin
      with Sender as TBaseReport do begin
        PrintBitmapRect(0.5,0.5,1.20,1.20,Logo)；
        MarginTop := 0.5；
        // 设置顶部边界
        Home；
        // 定位到第一行的开始位置
        SetFont('Arial',24)；
        // 设置报表标体的字体和字号
        PrintHeader('人员简要情况报表', pjCenter)；
        // 在第一行的中间打印报表的标题
        MarginTop := 1.0；
        Home；
        //将光标重新移到第一行的开始位置
        SetFont('Arial',10)；
        PrintHeader(FormatDateTime(DateFormat, now), pjRight)；
       // 在报表第一行的右侧打印当前的日期和时间
      end； { with }
    end；