如何保存，打印paintbox上的图形？急急！！！！(50分)

保存：

procedure TForm1.Button2Click(Sender: TObject);
var
aBitMap:TBitmap;
MyRect: TRect;
begin
MyRect := Rect(0,0,PaintBox1.Width,PaintBox1.Height);
aBitmap := TBitMap.Create;
aBitmap.Height := PaintBox1.Height;
aBitmap.Width := PaintBox1.Width;
aBitmap.Canvas.CopyRect(MyRect,PaintBox1.Canvas,MyRect);
aBitmap.SaveToFile('e:/temp.bmp');
aBitmap.Free;
end;

打印比较简单的办法是将PaintBox的Align设为alClient。调用Form1.Print;
这样可以将客户区的东西都打印出来，也就是将PaintBox中的东西打出来。

多人接受答案了。