ich möchte gern eine Fehlermeldung ausgeben, Msgbox, wenn kein Drucker
angeschlossen ist.
Sowohl vor Ort oder auch Netzwerkdrucker,
geht das ?
gruß kurt
Was muß ich jetzt machen ?
Erstmal ein genauso dummes Gesicht wie ich.
Kann ich nicht erklären.
;-)
Ausserdem kannst du noch versuchen ob hiervon etwas brauchen kannst:
Sub Drucker()
'If Application.ActivePrinter Like ("Un*") Then
' MsgBox "Kein Drucker angeschlossen!"
'Else
' MsgBox "Drucker vorhanden !"
'End If
'---------- und dies ---------------------------------
If GetStdPrinterName = "" Then
MsgBox "Kein Drucker gefunden!"
Else
MsgBox "Drucker vorhanden !"
End If
End Sub
gruß kurt