|
Hola Caro,
muchas gracias por su respuesta, me ha venido genial y pude solucionar el problema.
Estoy intentando que me genere un report con más de una página y no me lo esta haciendo bien. debería duplicar el código que tengo para un stringgrid?
muchas gracias de nuevo y disculpa por las numerosas preguntas.
le adjunto el código:
begin
MoreData := Indice <= Principal.tabla_le.RowCount;//Esta es la condición de terminación
if MoreData then
begin
QRFREC.Caption := Principal.tabla_le.Cells[0,Indice];
QR1.Caption := Principal.tabla_le.Cells[1,Indice];
QR2.Caption := Principal.tabla_le.Cells[2,Indice];
QR3.Caption := Principal.tabla_le.Cells[3,Indice];
QR4.Caption := Principal.tabla_le.Cells[4,Indice];
QR5.Caption := Principal.tabla_le.Cells[5,Indice];
QR6.Caption := Principal.tabla_le.Cells[6,Indice];
QR7.Caption := Principal.tabla_le.Cells[7,Indice];
QR8.Caption := Principal.tabla_le.Cells[8,Indice];
QR9.Caption := Principal.tabla_le.Cells[9,Indice];
QR10.Caption := Principal.tabla_le.Cells[10,Indice];
QR11.Caption := Principal.tabla_le.Cells[11,Indice];
end;
Inc(Indice);
Indice := 0;//Inicializar indice
MoreData := Indice <= Principal.tabla_lr.RowCount;//Esta es la condición de terminación
if MoreData then
begin
QRFREC.Caption := Principal.tabla_lr.Cells[0,Indice];
QR1.Caption := Principal.tabla_lr.Cells[1,Indice];
QR2.Caption := Principal.tabla_lr.Cells[2,Indice];
QR3.Caption := Principal.tabla_lr.Cells[3,Indice];
QR4.Caption := Principal.tabla_lr.Cells[4,Indice];
QR5.Caption := Principal.tabla_lr.Cells[5,Indice];
QR6.Caption := Principal.tabla_lr.Cells[6,Indice];
QR7.Caption := Principal.tabla_lr.Cells[7,Indice];
QR8.Caption := Principal.tabla_lr.Cells[8,Indice];
QR9.Caption := Principal.tabla_lr.Cells[9,Indice];
QR10.Caption := Principal.tabla_lr.Cells[10,Indice];
QR11.Caption := Principal.tabla_lr.Cells[11,Indice];
end;
Inc(Indice);
end;
|