Imprimir un stringGrid

[Neftali [Germán.Estévez]]

Así a primeras lo que se me ocurre para no usar componentes de terceros y que sea simple, es que vuelques el contenido del TStringGrid sobre un TClientDataset (qe debería poder hacerse con un simple bucle for/while) y que lluego uses el dataset contra el report.
De esa forma el Dataset (TClientDataset) ya te dará las líneas de detalle del presupuesto (en una banda).

[kainchu3102]

No entendi. la verdad que me esta costando un poco si no sos mas especifico por favor.

[Casimiro Noteví]

Quiere decir que como con fastreport tienes que usar un dataset, pues que pases los datos del stringgrid a un dataset, ejemplo un clientdataset, y ese dataset ya si puedes abrirlo desde el fastreport.
También puede que quieras usar un dbgrid en lugar del stringgrid y te ahorras el paso intermedio del clientdataset.

[kainchu3102]

buscando encontre este codigo pero me sale un error lo cual ahora envio por imagen

Código Delphi [-]
unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
    frxClass, StdCtrls, Grids, frxCross; 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    StringGrid1: TStringGrid; 
    frxCrossObject1: TfrxCrossObject; 
    frxReport1: TfrxReport; 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure frxReport1BeforePrint(c: TfrxReportComponent); 
    end; 

var 
    Form1: TForm1; 

implementation 
{$R *.DFM} 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    i, j: Integer; 
begin 
    for i := 1 to 16 do 
    for j := 1 to 2000 do 
     StringGrid1.Cells[i - 1, j - 1] := IntToStr(i * j); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    frxReport1.ShowReport; 
end; 

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent); 
var 
    Cross: TfrxCrossView; 
    i, j: Integer; 
begin 
    if c is TfrxCrossView then 
    begin 
    Cross := TfrxCrossView(c); 
    for i := 1 to 16 do 
     for j := 1 to 2000 do 
     Cross.AddValue([i], [j], [StringGrid1.Cells[i - 1, j - 1]]); 
    end; 
end; 
end.

[kainchu3102]

[Casimiro Noteví]

No puedes encontrar la solución si no entiendes el problema.
Debes ir paso a paso, y no avanzar al siguiente hasta que entiendas el último.
Para empezar deberías poner tu código, y no cualquier código que hayas encontrado por ahí.

[Neftali [Germán.Estévez]]

Si quieres usar el componente, revisa las demos que vienen con FastReport.
Dentro de la carpeta de demos, hay una llamada PrintStringList, que hace lo que necesitas y usa dicho componente.

En cuanto al error, lo más sencillo es que ejecutes el programa paso a paso y detectes en qué línea está fallando. Viendo sólo el código no se puede saber.
En alguna de las líneas estás accediendo a un objeto no creado, por eso te está dando un Access Violation.