Problemas com frames no quickreport
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
Abraços
Claudio Stein Junior
Frostlost
Curtidas 0
Respostas
Mazzi
27/07/2008
Saem = no video ou na impressao?
GOSTEI 0
Frostlost
27/07/2008
No vídeo.
Saem = no video ou na impressao?
GOSTEI 0
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.
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
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;
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
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;
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