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
DM.IBDSAlumnos.Last;
iFotos := DM.IBDSAlumnos.RecordCount;
if iFotos < 16 then
begin
QROrla.Page.Columns := 5;
QRBandFotos.Height := 232;
end
else if (iFotos > 15) and (iFotos < 19) then
begin
QROrla.Page.Columns := 6;
QRBandFotos.Height := 232;
end
else if (iFotos > 18) and (iFotos < 22) then
begin
QROrla.Page.Columns := 7;
QRBandFotos.Height := 232;
end
else if (iFotos > 21) and (iFotos < 25) then
begin
QROrla.Page.Columns := 8;
QRBandFotos.Height := 232;
end
else if (iFotos > 24) and (iFotos < 29) then
begin
QROrla.Page.Columns := 7;
QRBandFotos.Height := 178;
end
else if (iFotos > 28) and (iFotos < 33) then
begin
QROrla.Page.Columns := 8;
QRBandFotos.Height := 178;
end
else if iFotos > 32 then
begin
QROrla.Page.Columns := 9;
QRBandFotos.Height := 178;
end;
QROrla.Preview;
QROrla.Free;
Close;
end;
Un saludo.