This function will return true if system as got printer installed.
Public Function PrinterInstalled() As Boolean
On Error Resume Next
Dim strDummy As String
strDummy = Printer.DeviceName
If err.Number Then
PrinterInstalled = False
Else
PrinterInstalled = True
End If
End Function