实例——打印报表的表体.txt

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

    function TReportForm.PrintPageReport2(Sender: TObject；
                             var PageNum: integer): Boolean；
    begin { 报表2 }
      with Sender as TBaseReport do begin
        SetFont('Times New Roman',12)；
        Home；
        SetColumns(3,0.25)；
        //设置列数，0.25为列间隔
        { 打印memo缓冲区的内容 }
        MemoBuf.PrintStart := ColumnStart；
        //获取在水平方向当前列的开始位置
        MemoBuf.PrintEnd   := ColumnEnd；
        //获取在水平方向当前列的结束位置
        PrintMemo(MemoBuf, ColumnLinesLeft, false)；
        //输出Memo缓冲区中指定位置的内容
        ClearColumns；
        //清楚列的设置
        Result := not MemoBuf.Empty；
        //返回结束状态
      end； { with }
    end；  { 报表2 }