---

Weiss jemand wie die Variable in Windows NT heiss, mit welcher der Standarddrucker definiert wird? Kann man diese Variable mit "GETENV" auslesen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo 3392,

also eine Variable gibt's nicht. Wenn Du Visual Basic einsetzen kannst, hier die Deklarationen und die Routine:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As String) As Long

Private Sub GetDefPr()
    Dim a As Integer
    bptr = 1
    eptr = 1
    devline$ = Space$(81)
    foo% = GetPrivateProfileString(DefApp$, ByVal DefKey$, "", devline$, 80, WinIni$)
    For i% = 1 To 80
        If Mid$(devline$, i%, 1) = Chr$(0) Then Mid$(devline$, i%, 1) = ","
    Next i%
    eptr = InStr(bptr, devline$, ",")
    PrDefault.Device = RTrim$(LTrim$(Mid$(devline$, bptr, eptr - bptr)))
    If Trim(PrDefault.Device) = "" Then GoTo Errornothing
    bptr = eptr + 1
    eptr = InStr(bptr, devline$, ",")
    PrDefault.Driver = RTrim$(LTrim$(Mid$(devline$, bptr, eptr - bptr)))
    bptr = eptr + 1
    eptr = InStr(bptr, devline$, ",")
    PrDefault.Port = RTrim$(LTrim$(Mid$(devline$, bptr, eptr - bptr)))
    'Debug.Print "--------*Begin*--------"
    'Debug.Print PrDefault.Device
    'Debug.Print PrDefault.Driver
    'Debug.Print PrDefault.Port
    Exit Sub
Errornothing:
a = MsgBox("FEHLER: Kein Standarddrucker gesetzt", 16)
End Sub

ansonsten kann ich noch helfend eingreifen.

Viel Erfolg

[Diese Nachricht wurde von Fan-ME10 am 28. März 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP