Canvas.CopyRect打印问题

 var
  rect:trect;
begin
  rect.Left:=0;
  rect.Top:=0;
  rect.Right:=printer.PageWidth;
  rect.Bottom:=printer.PageHeight;

  printer.BeginDoc;
  printer.Canvas.CopyRect(rect,image1.Canvas,image1.ClientRect);
  printer.EndDoc;

当image1的尺寸大于1100时就无法打印了，小于1000的时候就可以正确输出图像
谁能帮忙看看

http://blog.sina.com.cn/s/blog_986c47a701015lvr.html