MSChart1.EditCopy
      Form2.Picture1.Picture = Clipboard.GetData()
      Printer.Print " "
      Printer.PaintPicture Form2.Picture1.Picture, 0, 0
      Printer.EndDoc

解决方案 »

  1.   

    执行到
    Picture1.Picture = Clipboard.GetData()
    时老说打开剪贴板错误521
    这个问题怎么解决?
    有人能告诉我问题出在哪里也好,多谢了
      

  2.   

    msdn提示:
    不能打开剪贴板(错误 521)
    Clipboard 已经被其它应用程序打开。此错误产生的原因及解决方法如下: 
    其它应用程序正使用 Clipboard,将不会释放给本应用程序。 
    这种情况下,在代码中设置一错误陷阱,并提供带有“重试”和“取消”按钮的消息框,以允许较短的暂停后重试。让我试试,看看能不能通过
      

  3.   

    加了一个延时办法,测试时没啥了
    大家帮忙看看有什么不妥么?Private Sub Command1_Click()
    On Error GoTo Mschart_copy_Error
       MSChart1.EditCopy
        Picture1.Picture = Clipboard.GetData()
     Mschart_copy_Error:
     Timer1.Enabled = True
        Resume Next
    End SubPrivate Sub Form_Load()
    Timer1.Enabled = False
    End SubPrivate Sub Timer1_Timer()
     Picture1.Picture = Clipboard.GetData()
     Timer1.Enabled = False
    End Sub
      

  4.   

    经过测试有一点点的延时就行,
    Timer1.Interval = 10
    Timer1.Interval = 1
    都能通过,但要是不加那个错误处理就报错
    真TNND