Ver Mensaje Individual
  #2  
Antiguo 05-08-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 24
Caro Va por buen camino
Hola, si quieres imprimir el contenido de un StringGrid, puedes utilizar el evento OnNeedData del QuickReport, un ejemplo.

Código Delphi [-]
procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
 MoreData := Indice <= StringGrid1.RowCount;
 if MoreData then
  begin
   qrLabelCol1.Caption := StringGrid1.Cells[0, Indice];
   qrLabelCol2.Caption := StringGrid1.Cells[1, Indice];
   qrLabelCol3.Caption := StringGrid1.Cells[2, Indice];
  end;
 Inc(Indice);
end;
 
//Inicializamos indice
procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin 
 Indice := 0;
end;

colocas Qrlabels en una banda Detail, que sera cada columna de tu StringGrid.

Sobre el QrRichText, la verdad nose porque pasa lo que dices.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.

Última edición por Caro fecha: 02-12-2009 a las 13:17:40.
Responder Con Cita