Drawing two frames

Freud

Hi all,

For drawing frame (Columns) I have a header band, an overlay band and footer band and I use this code in the OAP of the page and all it's ok as shown in my capture:

procedure draw_columns;
var
  idx:integer;
  obj:TfrxView;
begin
  for idx:=0 to header.objects.count-1 do
  begin
    obj:=TfrxView(header.objects[idx]);
    if obj.tagstr='COLUMN' then
    begin
      with TfrxShapeView.create(body) do
      begin
        left:=obj.left;   
        top:=header.height;  
        width:=obj.width;            
        height:= engine.pageheight-header.height-footer.height-400;
      end;
    end;                                  
  end;       
end;


procedure Page1OnAfterPrint(Sender: TfrxComponent);
begin
   draw_columns  
end;

I need to draw a second frame just under the first as in my attached capture how to do that please ?
Thanks for the help