我急啊

Question

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

Answer 1

or read this:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q168749