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;
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
