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;