Hola,
estoy desarrollando una función que, a groso modo es como sigue:
function Previsualizar (informe: TObject; ............);
varCReport: TTQRCompositeReport;
QReport: TQuickRep;
tipo: integer;
beginif (informe.ClassName = TQRCompositeReport.ClassName) then
begintipo := 0;
CReport := TQRCompositeReport (informe);
end else
if (informe.ClassName = TQuickRep.ClassName) then
begintipo := 1;
QReport := TQuickRep (informe);
end;
case tipo of
0: CReport.Preview;
1: QReport.Preview;
end;
end;
(No hago el casting de la forma "informe as TQRCompositeReport" ya que salta una excepción del tipo: "invalid class typecast".)
El problema es el siguiente: el preview se realiza correctamente, pero cuando se pulsa el botón de Imprimir, casi siempre (aunque no siempre, lo cual es muy extraño) sale una ventana de error aludiendo a la DLL en la que tengo la función y no se puede imprimir. Pero no sé por donde atacar, ya que el botón de imprimir y su evento es interno al previsualizador del composite.
Si alguien ha tenido algún problema similar o puede darme informacion útil se lo agradeceré.