打印报表的头注

niochen

于 2009-02-20 09:53:00 发布

阅读量253

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签：报表

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3912887

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    procedure TReportForm.PrintHeaderReport2(Sender: TObject)；
    begin {打印报表2的头注}
      with Sender as TBaseReport do begin
        MarginTop := 0.5；
        SetFont('Arial',24)；
        //设置打印头注的字体和大小
        Underline := true；
        //在头注下打印下线
        Home；
        //将光标移到第一行的开始位置
        PrintCenter('人员简况', PageWidth / 2)；
        //在当前行的中间位置打印头注
        MarginTop := 1.0；
      end； { with }
    end；  { 打印报表2的头注 }