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