打印报表的表体

原创于 2009-02-20 09:52:00 发布 · 269 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #integer #function

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    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 }