Problemas com Impressao no QR

Delphi

21/06/2004

Amigos,


É coisa de louco!
O quick report está exibindo um valor no relatório e quando mando para a impressora aparece outros!!!

Os dados que estão errados, mais especificamente estão em um childband do relatório...
A unica coisa que estou colocando neste child é o seguinte:

procedure TFrmRelResumoCompArrecadacao.QRChildBand2BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  //Antes de Exibir

  if PrintBand then //exibir os acumuladores gerais
    Begin
      QRLTotalP1.Caption  := FloatToStrF(wTotalP1,ffNumber,20,0);
      QRLTotalP2.Caption  := FloatToStrF(wTotalP2,ffNumber,20,0);
      QRLTotalDif.Caption := FloatToStrF(wTotalDif,ffNumber,20,0);
    End;
end;


Entao, o que ocorre: esse valores do
QRLTotalP1.caption
QRLTotalP2.caption
QRLTotalDif.caption
aparecem corretos no preview, mas na impressora, aparececem errados...

O que pode está havendo?!


Rafaelunp

Rafaelunp

Curtidas 0

Respostas

Cabelo

Cabelo

21/06/2004

Caro colega..

Debugue sua rotina nas duas rotinas, na hora de dar um preview w na hora de dar um print, ao que parece seu acumulador está funcionando duas vezes, isto é, vc implementa ele duas vezes, uma no preview e uma no print, para fazer este teste sem debugar faça o seguinte, dê um print direto, ao invés de dar um preview, dê um print no evento do batão que imprime o relatório, se ele sair impresso, o quê está acontecendo é exatamente o quê te falei.. Outra coisa, veja se o resultado na impressora é exatamente o dobro ou segue a regra de implementação de seus acumuladores gerais, as vezes vc está acumulando eles no evento errado.

espero ter ajudado..

sem mais

Cabelo


GOSTEI 0
POSTAR