Rave - Nova Coluna não aparece!

procedure TfrmEtiPrat.rsEtiPratPrintHeader(Sender: TObject); Var VLinha : Integer; begin With Sender As TBaseReport Do Begin MarginTop:= 1.0; LineHeight:= 1.2; VLinha:= 0; SetColumns(3, 0.75); SetColumnWidth(6.5, 0.75); while not dataProdutos.eof do begin cleartabs; SetFont(´Arial´, 5); Bold:= true; MarginLeft:= 0.5; Print(dataProdutosLOCAL.Value); MarginLeft:= 0.1; NewLine; SetFont(´Arial´, 3); ClearColumns; Print(IntToStr(dataProdutosID.Value) + ´ - ´ + dataProdutosDESCRICAO.Value); NewLine; NewLine; VLinha:= VLinha + 1; If VLinha = 20 then begin NewColumn; VLinha:= 0; end; If ColumnNum = 3 then begin NewPage; VLinha:= 0; ColumnNum:= 1; end; dataProdutos.Next; end end; end;