---

Hallo liebe CAD'ler

Es gibt ein Problem mit der Druckerauswahl.
Auf einigen PCs ist der Druckerserver \\Server123\... eingebunden,
auf anderen der gleiche mit \\SERVER123\... .

Leider ist die Auswahl des Druckerservers in Catia in Case Sensitive geregelt. ("A"ist nicht gleich "a", usw.)

Problemzeile:
CATIA.Application.ActivePrinter = CATIA.Printers.Item("\\SERVER123\Ducker234")

Leider gibt es in Catia nur in der Entwicklungsumgebung die Möglichkeit,
diese Konflikte mit "Option Compare Text" zu umgehen.

In der CATScript - Variante geht dies leider nicht.

Gibt es eine Möglichkeit, diese Konflikte von Grund auf zu verhindern,
ohne dass jedes Makro bei jeder Anfrage editiert werden muss?

Eine Zeile oben, wie Option compare Text, wäre ideal. 

Mit freundlichen Grüßen, Gunngir.

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

---

Hallo,

vll. hilft dir folgendes weiter.

Code:

---

If UCase("\\Server123\") = "\\SERVER123\" then
  Msgbox "Ist das Gleiche..."
End If

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

genau das hätte ich eigentlich gerne umgangen.
aber naja, dann wird eben mit einer For-Schleife die Nummer des gesuchten Druckers ermittelt und dann mit der Nummer anstatt des Namens gearbeitet.

Schade, dass es etwas vergleichbares wie "Option Compare Text" wirklich nicht in der Makro-Form von Catia gibt 

Mit freundlichen Grüßen, Gunngir.

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

---

Ich verstehe nicht so Recht dein Problem.

Mit folgendem hast du eigentlich schon alles abgedeckt. Du musst nur deinen vermeintlichen Druckernamen übergeben egal in welcher Form.

Code:

---

Sub SetDefaultPrinter(DruckerName)

    Dim i
    Dim oPrinter
    Dim strPName
   
    For Each oPrinter In CATIA.Printers
        strPName = oPrinter.DeviceName
        If UCase(strPName) = UCase(DruckerName) Then
            CATIA.Application.ActivePrinter = oPrinter
            Exit Sub
        End If
    Next

End Sub

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

manchmal denk man komplizierter als es sein muss 

danke, das geht dann doch etwas einfacher.

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