form1: tform1;
implementation
{$r *.dfm}
procedure tform1.rvsystem1print(sender: tobject);
var
i1: integer;
s1: string[20];
s2: string[20];
bitmap: tbitmap;
polylinearr: array[1..6] of tpoint;
begin
with sender as tbasereport do begin
{ 打印表头和表尾 }
sectiontop := 0.75; //顶端
setfont('黑体',26); //设置字体
underline := true; //下划线
