Sistemde Kurulu Yazıcı Olup Olmadığını Kontrol Etmek

Private Sub Yazıcı_Click()
Dim msg$
msg = YaziciAdi
If Bak = "" Then
MsgBox ("Yazıcı kurulmamış")
Else
MsgBox ("Sistemde Kurulu Olan Yazıcı :" + msg)
End If

End Sub
Function Yazici() As String
On Local Error Resume Next
Yazici = Printer.DeviceName
End Function