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

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

    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；