Imprimir Varios Hojas
 

Hola Amigos,

Tengo un pequeño problemilla con la impresion de varias hojas. A ver si me explico. En una aplicacion me han pedido que permita al usuario imprimir varias facturas de forma que consecutiva. Es decir, generar un cuadro de dialogo en el que se introduzca el rango de facturas a imprimir. Estoy usando QuickReport para la impresion con lo que se muestra una sola factura. ¿como podría implementar para que el programa imprima el rango de facturas?
Gracias y saludos

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