ReportBuilder, me muestra la pantalla de impresora al enviar a PDF

[ArtPortEsp]

Hola;
estoy experimentando un problema algo raro; estoy generando un reporte en PDF que posteriormente envío por correo electrónico desde la pantalla de preview...
el codigo para "generar el reporte" es este:

Código Delphi [-]
               Fcartas.Recpagesp.PDFSettings.Title := 'Recordatorio de pago '+Qrecibos.fieldbyname('re_pol').asstring+' ('+StringReplace(Qrecibos.fieldbyname('re_num').asstring, '/', '-', [rfReplaceAll, rfIgnoreCase])+')';
            Fcartas.Recpagesp.Print;

en la pantalla de preview tengo un botón que ejecuta la accion de enviar el reporte por correo :

Código Delphi [-]
     ppViewer1.Report.AllowPrintToFile := True;
     ppViewer1.Report.DeviceType := dtPDF;

     ppViewer1.Report.PDFSettings.Author := 'SEGSYS';
     //ppViewer1.Report.PDFSettings.Title  := Ltitulo.Caption;

     ppViewer1.Report.PDFSettings.OpenPDFFile := True;

     xcarpeta := 'c:\asap\temp';
     xarchivo  := ppViewer1.Report.PDFSettings.Title+'.pdf';

     If ForceDirectories(xcarpeta) then
          ppViewer1.Report.TextFileName := xarchivo;

     lPDFDevice := TppPDFDevice.Create(nil);

     if (FOutputStream = nil) then
          FOutputStream := TMemoryStream.Create
     else
          FOutputStream.Clear;


     try
          lPDFDevice.PDFSettings   := ppViewer1.Report.PDFSettings;
          lPDFDevice.OutputStream  := FOutputStream;        // assign output stream
          lPDFDevice.Publisher     := ppViewer1.Report.Publisher;

     // generate the report
     ppViewer1.Report.PrintToDevices;

     finally
          lPDFDevice.Free;
     end;

la primera vez que genero el reporte lo hace perfectamente, el problema viene cuando lo vuelvo a intentar; me manda la pantalla de la impresora [imagen] y me abre el acrobat con el archivo PDF
Alguna sugerencia?

[[duilioisola]]

No conozco reportbuilder, pero podría ser que no entre la segunda vez a la línea donde se asigna el nombde de archivo si la carpeta ya existe.

Código Delphi [-]
    If ForceDirectories(xcarpeta) then
        ppViewer1.Report.TextFileName := xarchivo;

[ArtPortEsp]

Empezado por duilioisola

No conozco reportbuilder, pero podría ser que no entre la segunda vez a la línea donde se asigna el nombde de archivo si la carpeta ya existe.

Código Delphi [-]
    If ForceDirectories(xcarpeta) then
        ppViewer1.Report.TextFileName := xarchivo;

Al principio pensé que era eso, pero ni siquiera llega a presentarme la pantalla de preview que es donde esta ese código...

[ArtPortEsp]

Agregando :

ShowPrintDialog :=False;
ShowCancelDialog :=False;
ModalCancelDialog :=False;


Antes de :

Fcartas.Recpagesp.Print;

Ya no muestra el dialogo de la impresora, pero me abre el Acrobat Reader!!!

[Casimiro Notevi]

Empezado por ArtPortEsp

Agregando :
ShowPrintDialog :=False;
ShowCancelDialog :=False;
ModalCancelDialog :=False;
Antes de :
Fcartas.Recpagesp.Print;
Ya no muestra el dialogo de la impresora, pero me abre el Acrobat Reader!!!

Por esto:
ppViewer1.Report.PDFSettings.OpenPDFFile := True;

[ArtPortEsp]

Empezado por Casimiro Notevi

Por esto:
ppViewer1.Report.PDFSettings.OpenPDFFile := True;

correcto (muchas gracias), corregida esa parte...

el problema es que sigue "fallando" en las sucesivas ejecuciones del código; la idea es que siempre me muestre la pantalla de preview cuando hago el PRINT y eso solo lo hace la primera vez.

[ArtPortEsp]

Problema corregido,

como siempre; uno se deja llevar por las repeticiones cuando prueba el codigo y no alcanza a ver los errores obvios...

el problema estaba en el boton de la ventana de preview del reporte :

     ppViewer1.Report.AllowPrintToFile := True;
     ppViewer1.Report.DeviceType := dtPDF;

necesitaba "resetear" estas propiedades y lo hice al finalizar el evento del boton:

     finally
          ppViewer1.Report.AllowPrintToFile := False;
          ppViewer1.Report.DeviceType := dtScreen;

          lPDFDevice.Free;