Para Jesus sobre FastReport
Publicado por BigLuis (713 intervenciones) el 02/06/2005 18:59:31
Jesus, he leido tu mensaje de milagro porque no le has puesto en el lugar adecuado.Si a la primera prugunta que hiciste no se te contestó haz otra y otra pero no intercales temas. El autentico experto en FastReport ( o al menos mucho mas que yo) que lo he empezado a utilizar hace dos meses, es Delphino, pero lo que tu quieres yo lo he solucionado de esta forma
procedure TFormPrincipal.frxReport1BeforePrint(
c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if RxDBGrid2.DataSource.DataSet.Active then
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
RxDBGrid2.DataSource.DataSet.First;
i := 0;
while not RxDBGrid2.DataSource.DataSet.Eof do
begin
// for j := 0 to RxDBGrid2.DataSource.DataSet.Fields.Count - 1 do
for j := 0 to RxDBGrid2.FieldCount - 2 do
Cross.AddValue([i], [RxDBGrid2.Fields[j].DisplayLabel], [RxDBGrid2.Fields[j].AsString]);
RxDBGrid2.DataSource.DataSet.Next;
Inc(i);
end;
end;
end
else
exit;
end;
procedure TFormPrincipal.ImprimirDatos1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;
Con el paquete deinstalacion vienen un monton de ejemplos.
Suerte.
procedure TFormPrincipal.frxReport1BeforePrint(
c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if RxDBGrid2.DataSource.DataSet.Active then
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
RxDBGrid2.DataSource.DataSet.First;
i := 0;
while not RxDBGrid2.DataSource.DataSet.Eof do
begin
// for j := 0 to RxDBGrid2.DataSource.DataSet.Fields.Count - 1 do
for j := 0 to RxDBGrid2.FieldCount - 2 do
Cross.AddValue([i], [RxDBGrid2.Fields[j].DisplayLabel], [RxDBGrid2.Fields[j].AsString]);
RxDBGrid2.DataSource.DataSet.Next;
Inc(i);
end;
end;
end
else
exit;
end;
procedure TFormPrincipal.ImprimirDatos1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;
Con el paquete deinstalacion vienen un monton de ejemplos.
Suerte.
Valora esta pregunta
0