Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Druckfehler beim drucken von Lotus Notes unter Citrix

<< < (4/4)

schimmi:
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

Navigation

[0] Themen-Index

[*] Vorherige Sete