안녕하세요. 저 같은 경우에는 퀀텀에 컬럼을 일괄 생성 한 후에
EndUpdate 하고 나서 개별 컬럼 별로 ApplyBestFit 를 하고 나면 좀 사이즈가 길더라구요.
그래서 통상적으로 그 Width 에 -30 을 해서 사용하면 적당한 크기에 맞추어져서 나오 더라구요..
그래서 아래처럼 사용 합니다.

Procedure TFrom1.Band_ColumnAdd(nI: Integer);
var
  i : Integer;
begin
  with DBBandedTableView1  do
  begin
    BeginUpdate;
    Bands.Add;
    Bands[1].Display := False;

    for i := 1 to nI do
    begin
      CreateColumn;
      Columns[i].Name                  := 'B_'+IntTostr(i);
      Columns[i].Position.BandIndex    := 1;
      Columns[i].Position.LineCount    := 2;
      Columns[i].Options.Editing       := False;
      Columns[i].Options.Filtering     := False;
      Columns[i].Options.Grouping      := False;
      Columns[i].Caption               := '컬럼명';
      Columns[i].HeaderAlignmentHorz   := taCenter;
      Columns[i].HeaderAlignmentVert   := vaCenter;
      Columns[i].DataBinding.FieldName := '필드명';
    end;
    EndUpdate;
    For i := 1 to nI do
    begin
      Columns[i].ApplyBestFit;
      Columns[i].Width := Columns[i].Width - 30;
    end;
  end;
end;

도움이 되시길 바라겠습니다.. ^^