请问如何打印、保存和复制MSCHART生成的图？

[jerryleo]

我想请教一下，如何打印、保存和复制MSCHART生成的图？

多谢了！

[dbcontrols]

Private Sub Command1_Click()
MSChart1.EditCopy
End Sub

Private Sub Command2_Click()
MSChart1.EditCopy
Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Picture, "C:\Test.bmp"
End Sub

Private Sub Command3_Click()
MSChart1.EditCopy
Picture1.Picture = Clipboard.GetData
Printer.PaintPicture Picture1.Picture
End Sub

Private Sub Form_Load()
Command1.Caption = "复制"
Command2.Caption = "保存"
Command3.Caption = "打印"
End Sub

[twodays]

可以把它copy到剪贴板中，然后再打印，这个例子是从MSDN里面找出来的，我没有试验过。
MSChart1.EditCopy
Printer.Print " "
Printer.PaintPicture Clipboard.GetData(), 0, 0
Printer.EndDoc

不过我以前用过把它copy到剪贴板中之后，在转换到一个image控件中，然后也可以打印、保存了。