Foros Club Delphi - QReport y Columnas...sigo con problemas

Hola, nuevamente por aquí...

He estado revisando los foros y en realidad no he econtrado la solución a mi problema...:D :confused:

Tengo que imprimir un listado de fichas de un departamento, y necesito hacer lo siguente

ej.. un depto tiene X fichas... y estas se imprimen así:

ficha 1 ficha 5
ficha 2 ficha 6
ficha 3
ficha 4

cuando quiero que se impriman ashí...:D

ficha 1 ficha 2 ficha 3 ficha 4
ficha 5 ficha 6

he probado los siguientes metodos:

1. Utilizo un DetailBand1, en donde pongo 4 QRLabel...en el evento BeforePrint del DetailBand.. pongo lo siguiente

Código:

If IBQ_Select.Eof Then QRLabel2.Caption := ''

Else QRLabel2.Caption := IBQ_Select['ficha'];

IBQ_Select.Next;

 

If IBQ_Select.Eof Then QRLabel3.Caption := ''

Else QRLabel3.Caption := IBQ_Select['ficha'];

IBQ_Select.Next;

 

If IBQ_Select.Eof Then QRLabel4.Caption := ''

Else QRLabel4.Caption := IBQ_Select['ficha'];

IBQ_Select.Next;

 

If IBQ_Select.Eof Then QRLabel5.Caption := ''

Else QRLabel5.Caption := IBQ_Select['ficha'];

el proceso lo hace, pero siempre me repite como 7 registros...

2. Tambien intente dejando el Reporte con 4 Columnas... y utilizando un QRDBText, y le daba un ForceNewColum = True... si bien funcionaba, me omite demasiados registros... si el ForceNewColum = False, funciona, pero primero termina 1 columna, y luego pasa a la siguiente,

En varios foros mencionan el evento OnNeedData, pero no he encontrado información sobre lo que necesito...:p