forcenewpage y forcenewcolumn, qreport ...

[mierda]

Hola ... creo que no viene por ahi el error, ya que al principio leo de un xml las columnas que tiene ... y le pongo 4 columnas .....

he continuado haciendo pruebas y haciendo unas cuantas chapuzas ... he conseguido que funcione correctamente, pero claro son chapus ...ahi va:

1.- crear una QRBand2 y ponerla como columnheader ... ponerle el alto a 0

2.- en el report en el beforeprint le hago un

Código Delphi [-]
 
QRBand1.ForceNewColumn := true;

(luego ya veremos si es forcenewcolumn true o false)

PD: esto mas o menos esta ya .... pero como hago para que el registro que tiene que saltar de columna no se muestre? o sea que el que sea el codigo 777777777 no se muestre y luego salte de columna

PD2: muchas gracias por contestar

Edito: Ya he conseguido que no salga la banda que es 7777777777 y que ademas salte de columna.La solucion por si a alguien le interesa algun dia:

1.- Hacer todo lo anterior.

2.- En el beforeprint

Código Delphi [-]
procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
if copy(ADOTable1.fieldbyname('codigo').AsString,0,12) = '777777777777' then
  begin
      QRBand1.Visible := false;
      printband := false;
  end
else
  begin
      QRBand1.Visible := true;
      PrintBand := true;
  end;

3.- En el afterprint:

Código Delphi [-]
procedure TForm1.QRBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
BandPrinted := true;
if copy(ADOTable1.fieldbyname('codigo').AsString,0,12) = '777777777777' then
  begin
      QRBand1.ForceNewColumn := true;
  end
else
  begin
      QRBand1.ForceNewColumn := false;
  end;
end;