De momento se me ocurre dos cosas:
- Un bucle:
Código Delphi
[-]
for i:= 32 to 40 do
begin
Query1.Close; query1.parambyname('Factura').AsInteger := i;
Query1.Open;
QuickReport1.Print;
Application.ProcessMessages;
end;
- Modificar la consulta que alimenta el QuickReport para que quede así:
Código SQL
[-]
Select * from facturas where idFactura in (32, 33, 34, 35, 36, 37,38,39,40)
Cuando el usuario elija las facturas, sustituyes lo que está entre paréntesis por los números de facturas.
Si el idFactura es un String, debería quedar así:
Código SQL
[-]
Select * from facturas where idFactura in ('32', '33', '34', '35', '36', '37', '38', '39', '40')
Saludos