Hallo jan,
sorry für die späte Antwort,
aber bis jetzt haben wir auch noch keine Lösung.
Ich habe mir in der zwischenzeit ein kleines Script gebastelt, dass den Standarddrucker neu setzt:
----
Sub Click(Source As Button)
Dim CurPrinter As String
Dim nPrinter As String
CurPrinter = GetCurrentPrinter
nPrinter =<irgendein default printer, den jeder user hat>
SetDefaultPrinter(nPrinter)
SetDefaultPrinter(CurPrinter)
---
Function GetCurrentPrinter
Dim Temp As String
Dim RC As Integer
Dim P1 As Integer, P2 As Integer
Dim PrinterName As String
'Get current printer device name
Temp = Space$(255)
RC = GetProfileString("windows", "device", "", Temp, 255)
Temp = Left$(Temp, RC)
Msgbox "Der aktuell gesetzte Standarddrucker ist:" & Chr(10) & Temp
If RC = 0 Then 'no printer
Msgbox "No default printer"
Exit Function
End If
'Extract just the printer name
P1 = Instr(Temp, ",")
PrinterName = Mid$(Temp,1, P1-1)
GetCurrentPrinter = PrinterName
End Function
---
Allerdings müsste man dieses Script z.B. beim Öffnen der Maildatenbank im Hintergrund ausführen und dann bin ich mir nicht sicher ob das nicht noch mehr Probleme verursacht.
Bei uns wird es vermutlich auf ein Update auf v7 hinauslaufen.
mfg
tobias