vb6未定义子或函数

为什么我会得到一个错误“子函数或函数未定义”…这是我的代码

表格2

表单1…在此处调用我的函数“printReport”

---

错误消息显示在这里“Private Sub Command1_Click（）”

可以用这种简单的方式调用过程。[您所调用的是正确的]

例如

---

printReport函数在哪里定义？如果它位于类模块中，则需要实例化该类的实例，然后将printReport作为该类的方法调用。例如：

Private Sub Command1_Click()
  Dim oClass As New Class1

  oClass.printReport

End Sub

---

或者，您可以将printReport函数放在一个模块中，然后不实例化它或将其作为一个方法调用-您可以像在单击事件中那样调用它。

谢谢您的回复……我的表格2中定义的printReport函数您不显示任何表格2代码。请编辑您的帖子来描述Form2，以及您如何创建和显示它。您在哪里以及如何显示Form2？它是以模态方式显示还是以非模态方式显示？您尚未提供该信息。您应该将公共函数放在模块中，而不是表单中，顺便说一句：Form2.printReport可以工作，但您最好避免从这里开始：

Option Explicit

Private Sub Command1_Click()

printReport

End Sub

Private Sub Form_Load()
    Test1
End Sub

Sub Test1()
    MsgBox "Test1"
End Sub

Private Sub Command1_Click()
  Dim oClass As New Class1

  oClass.printReport

End Sub