Problema em impressões sucessivas com pré-visualização

[Juliano]

Bom dia, está ocorrendo um problema na impressão sucessiva de DACTE, com pré-visualização, no Windows XP. Nos Windows Vista e 7 não ocorre este problema. Cosinderando o pseudo-código de exemplo abaixo:

while not eof then

    ShowMessage('Já impresso');

    CTE.Conhecimentos.Clear;

    CTE.Conhecimentos.LoadFromStream(stream);

    CTE.Conhecimentos[0].Imprimir;

end;

Na primeira iteração a mensagem é mostrada e a visualização da DACTE ocorre normalmente, contudo, na próxima iteração a mensagem já não é mostrada. Debugando, percebi que na segunda iteração o ActiveForm do Screen está apontando para o formulário de visualização do Quickreport, o que já, teoricamente, foi fechado e está invisível, com isso a referência da mensagem fica errada, e a mesma fica não visível. Imagino que seja problema relacionado com o QuickReport, tentei liberar a instância do QuickReport no formulário TfrmDACTeQR, contudo também não funcionou. A solução temporária que encontrei foi liberar o ActiveForm antes do ShowMessage, se ele for diferente do formulário atual. Nos Windows posteriores ao XP, o ActiveForm se mantém nulo após cada impressão, com isso funciona.

while not eof then

    if Screen.ActiveForm <> Self then

        Screen.ActiveForm.Free;

    ShowMessage('Já impresso');

    CTE.Conhecimentos.Clear;

    CTE.Conhecimentos.LoadFromStream(stream);

    CTE.Conhecimentos[0].Imprimir;

end;

Testei nas versões 5.04 e 5.05 do QuickReport, nas duas ocorreu o mesmo problema.