bitmap := tbitmap.create;
bitmap.loadfromfile('rpdemo.bmp');
printbitmaprect(5.375,3.5,7.375,5.5,bitmap);
bitmap.free;
end;
end;
procedure tform1.button1click(sender: tobject);
begin
rvsystem1.execute; //执行报表！
end;
end.
##################################################################################
(ps:转载请注明作者--高速公路上的鱼（cyq）)
