Ver Mensaje Individual
  #1  
Antiguo 27-01-2006
Pirucho Pirucho is offline
Registrado
 
Registrado: ene 2006
Posts: 2
Reputación: 0
Pirucho Va por buen camino
Imprimir info de un StringGrid con un QuickRep

hola
necesito imprimir la informacion que tengo en un StringGrid, y estoy usando QuickRep,

Por ahi encontre un codigo:

Cita:
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
CurrentItem := 0; // Puntero de la lista a imprimir
//***
PrintReport := SomeStringList.Count 0; // Para verificar si hay algo para imprimir
//***
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
if CurrentItem < SomeStringList.Count then
QRLabel1.Caption := SomeStringList[CurrentItem]; // Impresion
Inc(CurrentItem); // Incrementa el Puntero en uno
MoreData := CurrentItem <= SomeStringList.Count; // Para indicar la Finalizacion del Reporte
end;

Pero me da un problema en ***, agradeceria su ayuda...
es que no entiendo porque si esa variable es boolean y le asigno un integer...

Si Alguien tiene un codigo que pueda postear...
Gracias
Responder Con Cita