Cantidad de columnas variables

[fidel]

Hola:

Yo para imprimir en una página las fotos de un grupo que puede ser variable y llegar como máximo a 35 hice esto, no se si te puede servir.

Código Delphi [-]
procedure TFImpriOrla.FormCreate(Sender: TObject);
var
  iFotos : integer;
begin
  //contar registros
  DM.IBDSAlumnos.Last;
  iFotos := DM.IBDSAlumnos.RecordCount;
  //reparto de fotos según número (columnas, widthBanda)
  if iFotos < 16 then
    //5 columnas, 3 filas
    begin
      QROrla.Page.Columns := 5;
      QRBandFotos.Height := 232;
    end
  else if (iFotos > 15) and (iFotos < 19) then
    //6 columnas, 3 filas
    begin
      QROrla.Page.Columns := 6;
      QRBandFotos.Height := 232;
    end
  else if (iFotos > 18) and (iFotos < 22) then
    //7 columnas, 3 filas
    begin
      QROrla.Page.Columns := 7;
      QRBandFotos.Height := 232;
    end
  else if (iFotos > 21) and (iFotos < 25) then
    //8 columnas, 3 filas
    begin
      QROrla.Page.Columns := 8;
      QRBandFotos.Height := 232;
    end
  else if (iFotos > 24) and (iFotos < 29) then
    //7 columnas, 4 filas
    begin
      QROrla.Page.Columns := 7;
      QRBandFotos.Height := 178;
    end
  else if (iFotos > 28) and (iFotos < 33) then
    //8 columnas, 4 filas
    begin
      QROrla.Page.Columns := 8;
      QRBandFotos.Height := 178;
    end
  else if iFotos > 32 then
    //9 columnas, 4 filas
    begin
      QROrla.Page.Columns := 9;
      QRBandFotos.Height := 178;
    end;
  QROrla.Preview;
  QROrla.Free;
  Close;
end;

Un saludo.