如何打印Image中的一部分？

Question

重新将欲打印部分COPY到另一CANVAS

Answer 1

分还是要的，虽然有点少，呵呵
var MyRect :TRect ;
begin
   with Image1.Picture.Bitmap do
   begin
      Printer.BeginDoc ;
      MyRect :=Canvas.ClipRect;
      MyRect.Left := 200;
      MyRect.Top := 200 ;
      MyRect.Right :=MyRect.Right * 10 ;
      MyRect.Bottom :=MyRect.Bottom * 10 ;      Printer.Canvas.StretchDraw(MyRect,Image1.Picture.Bitmap);
      Printer.EndDoc ;
   end ;
   //你只取你想要的就可以了
end;