Hi,
somebody can to test it to me:
1)
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s := '';
while length(s) < 5000 do
s := s + ' This is some really long text in a cell ';
advstringgrid1.Cells[1,1] := s;
advstringgrid1.AutoSizeRows(false);
end;
2)
procedure TForm1.Button2Click(Sender: TObject);
begin
if printersetupdialog1.Execute then
advstringgrid1.Print;
end;
I have problem when I have many characteres in the cells. (about 5000 characteres). I have problem only when I call Grid.Print;