Lupita
25-04-2006, 23:50:30
Hola tengo un problema estoy mandando este query (select clave,nombre, ciudad from clientes)a imprimir en un reporte de fast report pero como el nombre esta muy largo me lo manda con un tamaño predeterminado, me sale en dos renglones y quiero mandarle el tamaño por codigo, pero no se como mandarlo, uso esto para mostrar la informacion
procedure frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
MQuery1.open;
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
i := 0;
while not MQuery1.Eof do
begin
for j := 0 to MQuery1.Fields.Count - 1 do
begin
Cross.AddValue([i], [MQuery1.Fields[j].DisplayLabel], [MQuery1.Fields[j].AsString]);
end;
MQuery1.Next;
Inc(i);
end;
end;
end;
Espero que me puedan ayudar
procedure frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
MQuery1.open;
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
i := 0;
while not MQuery1.Eof do
begin
for j := 0 to MQuery1.Fields.Count - 1 do
begin
Cross.AddValue([i], [MQuery1.Fields[j].DisplayLabel], [MQuery1.Fields[j].AsString]);
end;
MQuery1.Next;
Inc(i);
end;
end;
end;
Espero que me puedan ayudar