初学者的问题，关于程序的编写！（附代码）

[sprite14]

有一个事件
Private Sub hellp_Click(index As Integer)
Module.AllClose
Select Case index
Case 1
StatusBar1.Panels(1).Text = “1”
Case 3
StatusBar1.Panels(1).Text = ”2“
End Select
End Sub

有一模块
Sub CheckPrint()
Dim X As Printer
Dim HavePrinter As Boolean
HavePrinter = False
For Each X In Printers
Set Printer = X
HavePrinter = True
Exit For
Next
If Not (HavePrinter) Then
MsgBox "没有安装打印机!"
Exit Sub
End If
End Sub


当我的模块检测到没有安装打印机之后，他依然回到事件中继续下面的代码！
我想如果返回“没有安装打印机!”后就让他跳出事件怎么写啊？

初学者的问题，各位不要笑话我，我太弱了！

[cornerxu]

fuction CheckPrint()
Dim X As Printer
Dim HavePrinter As Boolean
CheckPrint=True
HavePrinter = False
For Each X In Printers
Set Printer = X
HavePrinter = True
Exit For
Next
If Not (HavePrinter) Then
MsgBox "没有安装打印机!"
CheckPrint=False
End If
End Sub

[tony_jian]

^v^同意楼上

[sprite14]

哦，我知道了！谢谢

[cornerxu]

你把它做成一个函数，取一个布尔型的返回值，如果打印机不再则浮上FALSE在调用这个函数的过程里判断，如果返回值是FALSE则exit sub
你听明白没有？

[sprite14]

没有！呵呵~~~~
大哥，你帮我把代码改一下再说明行吗？

[bency]

同意楼上