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的时候就可以正确输出图像
谁能帮忙看看