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

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

    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 }