Alineacion QrDBtext

[bubba]

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