Hallo,
ich habe ein Problem mit meiner Datenbank. Ich möchte herausfinden, ob ein bestimmter Drucker installiert ist und dann eine Meldung rausgeben, wenn das nicht der Fall ist. Ich benutze Access 2000 und dieses läuft auf XP, 2000 und NT4.0.
Für Hilfe bin ich sehr dankbar.
Gruß Matthias
Hab’ ich vor Jahren mal im Netz gefunden. Die Funktion gibt eine Liste der Drucker zurück (für eine Kombobox gedacht)
Kann man ja aber schnell abändern.
HTH
Quaser
Declare Function GetProfileSection Lib „kernel32“ Alias „GetProfileSectionA“ (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Function GetWinDevNames()
Dim Ch As String * 1, Tmp As String, RW As Long, Res, Wert, i
Res = „“
Tmp = String$(1024, 0)
RW = GetProfileSection(„Devices“, Tmp, Len(Tmp))
If RW > 0 Then
Wert = Mid(Tmp, 1, RW)
Tmp = „“
For i = 1 To Len(Wert)
Ch = Mid(Wert, i, 1)
If Asc(Ch) = 0 Then
Res = Res & Left(Tmp, InStr(1, Tmp, „=“) - 1) & „;“
Tmp = „“
Else
Tmp = Tmp & Ch
End If
Next i
End If
GetWinDevNames = Res
End Function
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke für den Tip. Es geht und das ohne Probleme. Ich habs mir auch schon angepaßt.
Gruß Matthias
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]