实例——打印报表标题.txt

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

    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；