TAdvStringGrid : Issue with Grid.Print

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;



We had already tested this here and replied by email on this support question.