请各位高手帮个忙,小弟感激不尽!谢谢!关于 mschart问题

Question

用剪贴板！
mschart.EditCopy;
Clipboard.Clear
Set repSpermSystem.Sections("secPageHead").Controls("imgBeeline").Picture = Clipboard.GetData
Clipboard.Clear

Answer 1

对不起，顺序错了
Clipboard.Clear
mschart.EditCopy;
Set repSpermSystem.Sections("secPageHead").Controls("imgBeeline").Picture = Clipboard.GetData
Clipboard.Clear

Answer 2

Private Sub WriteEndDoc(PrintObject As Object)
If TypeOf PrintObject Is Printer Then
   PrintObject.EndDoc
End If
End Sub
Private Sub WritePicture(pic As Object, x1 As Single, y1 As Single, _
   PrintObject As Object)
PrintObject.PaintPicture pic, x1, y1
End Sub
Private Sub PrintChart(o As Object)
MSChart1.SelectPart VtChPartTypeChart, 0, 0, 0, 0
MSChart1.EditCopy
WritePicture Clipboard.GetData, 1440, 1440, o
WriteEndDoc o
End Sub