Cita:
Empezado por Viky
Tengo un reporte que tiene 3 qrdbtext en la banda detalle, uno debajo de otro.
el primer qrdbtext, llamesmolo qrdbtext1, siempre va a esta completo, pero puede suceder que el qrdbtext2 y qrdbtext3 no esten completos, por lo tanto quiero que el alto de la banda se ajuste dependiendo si estan los 3 qrdbtext completos o no.
Porque o sino queda demasiado espacio entre una linea y otra. Como puedo lograr ajustar la banda ??
Gracias
Viky.
|
Hola Viky,
La solución pasa por programar el evento BeforePrint de la banda detalle, he hecho una prueba y funciona (el alto que he puesto para cada QRDBText es de 17 puntos, eso a gusto del consumidor):
Código Delphi
[-]
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
Alto: Integer;
begin
Alto := 17;
if not QuickRep1.DataSet.FieldByName('Campo2').IsNull then begin
Alto := Alto + 17;
end;
if not QuickRep1.DataSet.FieldByName('Campo3').IsNull then begin
Alto := Alto + 17;
end;
DetailBand1.Height := Alto;
end;
Saludos