Problemas com frames no quickreport

27/07/2008

1

Pessoal, meus frames de minha banda detalhe não aparecem certo no preview do quickreport, uns saem outros não. Alguém sabe o que posso fazer para corrigir isso.

Abraços

Claudio Stein Junior


Responder

Posts

27/07/2008

Mazzi

Saem = no video ou na impressao?


Responder

27/07/2008

Frostlost

No vídeo.



Saem = no video ou na impressao?



Responder

27/07/2008

Thomaz_prg

tem algum código no evento BeforePrint?
Se tiver e não conter a linha:
PrintBand := True;
de vez em quando o QuickRep dá uma endoidada e não funciona direito.


Responder

27/07/2008

Frostlost

Tem código sim, no caso:

procedure TRelCaixa.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if DmCaixa.CdsListaCaixa2TIPO.AsString = ´C´ then
begin
QRDBText6.Font.Color:=clblue;
credito:=credito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end
else
begin
QRDBText6.Font.Color:=clred;
debito:=debito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end;
end;

procedure TRelCaixa.TitleBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
debito:= 0;
credito:= 0;
end;

procedure TRelCaixa.SummaryBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
RelCaixa.qrlCredito.Caption:= FormatFloat(´R$ #,,0.00´, credito);
RelCaixa.qrlDebito.Caption:= FormatFloat(´R$ ,,0.00´, debito);
end;

tem algum código no evento BeforePrint? Se tiver e não conter a linha: PrintBand := True; de vez em quando o QuickRep dá uma endoidada e não funciona direito.



Responder

29/07/2008

Frostlost

Onde uso o código abaixo:

PrintBand := True;

Usei no código abaixo e não funcionou:

procedure TRelCaixa.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if DmCaixa.CdsListaCaixa2TIPO.AsString = ´C´ then
begin
QRDBText6.Font.Color:=clblue;
credito:=credito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end
else
begin
QRDBText6.Font.Color:=clred;
debito:=debito + DmCaixa.CdsListaCaixa2VALOR.AsFloat;
end;
PrintBand := True;
end;


Responder