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!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: