Problemas com frames no quickreport

Delphi

27/07/2008

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


Frostlost

Frostlost

Curtidas 0

Respostas

Mazzi

Mazzi

27/07/2008

Saem = no video ou na impressao?


GOSTEI 0
Frostlost

Frostlost

27/07/2008

No vídeo.



Saem = no video ou na impressao?



GOSTEI 0
Thomaz_prg

Thomaz_prg

27/07/2008

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.


GOSTEI 0
Frostlost

Frostlost

27/07/2008

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.



GOSTEI 0
Frostlost

Frostlost

27/07/2008

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;


GOSTEI 0
POSTAR