Ich beschäftige mich nun seit 3 Tagen mit Visual Basic. Leider klappen aber bisher meistens die im Internet vorgegebenen Codes nicht, da bestimmte teile im Code Fenster rot angezeigt werden. Woran kann das liegen ? Ich besitze das Programm Microsoft Visual Basic 6.0
z.b bei diesem Code werden bei mir fehler angezeit, obwohl der code normalerweise richtig sein soll:
'Die Funktion prüft, ob ein Drucker vorhanden ist und
'gibt im Erfolgsfall True, andernfalls False zurück
Public Funtion CheckForPrinter() As Boolean
Dim sName As String
On Local Error Resume Next
sName = Printer.DeviceName
CheckForPrinter = (Err=0)
On Local Error Goto 0
End Function
'Beispiel
Dim Msg As String
If Not CheckForPrinter() Then
Msg = "Das System kann die Druckerinformationen nicht ermitteln."
Msg = Msg + vbCrLf + "Stellen Sie sicher, daß der Drucker "
Msg = Msg + "richtigt installiert ist." + vbCrLf + vbCrLf
Msg = Msg + "Evtl. wurde noch gar kein Drucker installiert."
ShowMsgBox Msg, 16
End If
Rene Gast |