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

Question

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

Answer 1

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