Imprimir Varios Hojas

[[Lepe]]

De momento se me ocurre dos cosas:
- Un bucle:

Código Delphi [-]
//  Vamos a imprimir desde la factura 32 a la 40;
for i:= 32 to 40 do
begin
  Query1.Close; // consulta desde la que se alimenta el quickReport
  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