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

2002-04-25 12:18:16 72 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【随机过程】第二章——随机过程概论随机过程概论，说明《随机过程》课程的教学大纲，对随机过程概念、研究对象和研究方法做了简要介绍。阅读详情

有一个事件
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

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

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

...全文