Resulta que tengo un reporte que NO ESTÁ LIGADO A DATOS mediante NINGÚN componente de manejo de bases de datos, en el cual estoy ingresando vía la creación de una etiqueta por renglón (a la vieja usanza COBOL, Clipper, etc. ) de cada uno de los registros de ciertas tablas, mediante un contador que hace las veces de posicionador dentro de un renglón de la banda de detalle, de ésta manera:
delphi
procedure EtiquetaReporte(qrReporte : TqckrprtDerivacionPaciente; iRenglon : integer; sContenido : string); begin with TQRLabel.Create(qrReporte.DetailBand1) do begin Parent := qrReporte.Bands.DetailBand; Left := 0; Top := iRenglon; Alignment := taLeftJustify; AutoSize := True; Caption := sContenido; end; end;
Y el pilón, una funcioncita para añadir espacios al texto. Simple pero efectiva.
delphi
function Espacios(iCantidad : integer) : string; var iEspacio : integer; begin Result := ''; for iEspacio := 1 to iCantidad do Result := Result + ' '; end;
El punto es que ahora, cuando el contador de renglón llegue a un cierto número (o condicionamiento) debo ejecutar alguna instrucción (la cual desconozco por el momento y gracias a su valiosa colaboración conoceré) y entonces reiniciar el contador de renglón hasta el punto en que se cumpla la condición y así.
Jóvenes, requiero saber qué instrucción debo enviar a TQuickReport para que agregue una nueva página al reporte, agradeciendo de antemano su colaboración.