Ver Mensaje Individual
  #8  
Antiguo 28-05-2018
josepvila josepvila is offline
Registrado
 
Registrado: may 2006
Posts: 2
Reputación: 0
josepvila Va por buen camino
Hola,
Esta actualización ..., teníamos el mismo error en el exporttofilter con delphi 7 y la unica solución que he encontrado después de debugar es poner un try / except en el createreport(false) y parece que funciona.
Espero que le sirva a alguien.

Programa :c:\program files (x86)\borland\Delphi7\Quickrep5\quickRpt.pas
Código Delphi [-]
procedure TCustomQuickRep.ExportToFilter(AFilter : TQRExportFilter);
  ...
      AProgress.Caption := 'Exportando a pdf';
      QRPrinter.Client := AProgress;
    end;
    // egaraset vr 28/05/2018 modificació provisional per error actualització win 10
    try
       CreateReport(false);
    except
    end;
  finally
    QRPrinter.Free;
    if ShowProgress then
            AProgress.Free;
  end;
...

Saludos

Última edición por Casimiro Notevi fecha: 28-05-2018 a las 20:33:36.
Responder Con Cita