代码：
SavePicture Image1,"d:\myimage.bmp"
其中image1 也可以为picture
mschart如何打印图片：
系统需要有image控件，mschart
Clipboard.Clear MSChart1.EditCopy Image1.Picture = Clipboard.GetData(vbCFBitmap) Clipboard.Clear '清除粘贴板 SavePicture Image1,"d:\myimage.bmp" Printer.PaintPicture Image1,Image.Width,Image1.Height