代码:
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, 0, 0, Image.Width, Image1.Height