title image


Smiley Re: Standarddrucker ermitteln
Das geht z.B. über die Windows-API:Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" _ (ByVal lpAppName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long) As LongPublic Function GetDefaultPrinter()' Rückgabewert: Standarddrucker' (In der Form: Druckername,Treibername,Gerätename)' Z.B. HP LaserJet III,HPPCL5MS,LPT1:Dim Tmp As String, RW, Res Res = "" Tmp = String(256, 0) RW = GetProfileString("Windows", "Device", "", Tmp, Len(Tmp)) If RW > 0 Then Res = Mid(Tmp, 1, RW)End Function

Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: