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 }
打印报表的表体
最新推荐文章于 2024-09-19 16:49:43 发布