Foros Club Delphi - Varios PDF en un solo archivo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Varios PDF en un solo archivo (https://www.clubdelphi.com/foros/showthread.php?t=96259)

Varios PDF en un solo archivo

Buenas noches foro.

Estoy usando Delphi 7 y QuickReport.

Con este procedimiento genero una factura y la exporto a PDF.

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
 apdf : TQRPDFDocumentfilter;
begin
  with QuickReport2 do begin
    try
      //DeleteFile(edArchivo.text);//
    finally
      apdf := TQRPDFDocumentfilter.Create(edArchivo.text);
    end;

    try
      ExportToFilter(apdf);
    finally
      apdf.Free;
    end;
   end;
end;

Pero ahora necesito generar en un solo archivo varias facturas. Sería algo así.

apdf := TQRPDFDocumentfilter.Add(edArchivo.text);

Esto último es un invento mío, no existe.

Será que se puede hacer desde el Delphi sin necesidad de generar los PDF separados y unirlos con una aplicación externa?

Desde Ya muchas gracias por su atención.

Cita:

Empezado por Carmelo Cash (Mensaje 551715)

Buenas noches foro.

Estoy usando Delphi 7 y QuickReport.

Con este procedimiento genero una factura y la exporto a PDF.

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
 apdf : TQRPDFDocumentfilter;
begin
  with QuickReport2 do begin
    try
      //DeleteFile(edArchivo.text);//
    finally
      apdf := TQRPDFDocumentfilter.Create(edArchivo.text);
    end;

    try
      ExportToFilter(apdf);
    finally
      apdf.Free;
    end;
   end;
end;

Hace muchos años que no uso QuickReport, pero hasta donde recuerdo hay un componente que se llama QRCompositeReport, ese te debe ayudar con lo que quieres hacer. Puedes buscar aquí en el foro, debe haber algo al respecto.

Saludos

Una opción podría ser la que te comenta Egostar.

Otra opción es que tu listado de facturas en QuickReport permita generar más de una factura en un mismo informe.
Con las bandas de grupo correctamente configuradas para que haga un salto de página al cambiar de factura no debes tener ningún problema para que el resultado sea el esperado.

Si lo que necesitas es un solo pdf con todas las facturas, el proceso de exportación a pdf sería idéntico al que ahora realizas.

Saludos

Cita:

Empezado por Carmelo Cash (Mensaje 551715)

Buenas noches foro.

Estoy usando Delphi 7 y QuickReport.

Con este procedimiento genero una factura y la exporto a PDF.

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
 apdf : TQRPDFDocumentfilter;
begin
  with QuickReport2 do begin
    try
      //DeleteFile(edArchivo.text);//
    finally
      apdf := TQRPDFDocumentfilter.Create(edArchivo.text);
    end;

    try
      ExportToFilter(apdf);
    finally
      apdf.Free;
    end;
   end;
end;

Hola que tal Carmelo.

Pudiera ser lo q te comenta MANELB, que la aplicación permita generar varias facturas en un solo reporte. En mi caso tengo un informe por punto de venta y por cada punto de venta se generan varias páginas, como un listado de ventas/clientes y realiza un "rompimiento de hoja" en cada punto de venta diferente. En el equipo donde se genera estos reporte, instale una IMPRESORA PDF (CutePDF, PDF24, etc) y si el usuario quiere NO IMPRIMIR EL REPORTE FISICAMENTE, usa esta impresora para crear un archivo PDF con todo el reporte/informe, mas 1500 páginas.

Espero te pueda servir esta idea.

Saludos.