Page 1 of 1

Schnittformen per VB aktivieren/deaktivieren

Posted: Wed Oct 11, 2017 7:29 am
by Manuel
Hallo,

gibt es eine Möglichkeit mittels VB Schnittformen zu aktivieren/deaktivieren?
Ich habe eine Prüfplakette erstellt und möchte den Vorgang automatieren die jeweilge Schnittform über dem entsprechenden Monat der mittels Systemdatum ermittelt werden soll zu aktivieren.
Hat irgendwer eine Idee ob sich sowas realisieren lässt und wie ich das angehen könnte?
Kann man irgendwo in einer Funktionsbibliothek nachlesen, was es für Befehle zum steuern der Labelsoftware mittels VB gibt? Wie steuere ich zum Beispiel die Funktion das Ausschneiden oder Drucken einer Form zu aktivieren/deaktivieren?

Wäre schön wenn mir jemand weiterhelfen könnte.

Gruß

Manuel

Re: Schnittformen per VB aktivieren/deaktivieren

Posted: Thu Oct 19, 2017 3:33 pm
by Manuel
ich habe jetzt etwas mehr herausgefunden.
Basierend auf https://www.nicelabel.com/support/knowl ... al-objects habe ich meinen Code folgendermaßen geschrieben.

Code: Select all

Dim currentDate, Ellipse1, Ellipse2, Ellipse3, Ellipse4, Ellipse5, Ellipse6, _
    Ellipse7, Ellipse8, Ellipse9, Ellipse10, Ellipse11, Ellipse12

currentDate = Month(date)

If currentDate = "1" Then
   label.SetObjectVisible("Ellipse1") = True
End If

If currentDate = "2" Then
   label.SetObjectVisible("Ellipse2") = True
End If

If currentDate = "3" Then
   label.SetObjectVisible("Ellipse3") = True
End If

If currentDate = "4" Then
   label.SetObjectVisible("Ellipse4") = True
End If

If currentDate = "5" Then
   label.SetObjectVisible("Ellipse5") = True
End If

If currentDate = "6" Then
   label.SetObjectVisible("Ellipse6") = True
End If

If currentDate = "7" Then
   label.SetObjectVisible("Ellipse7") = True
End If

If currentDate = "8" Then
   label.SetObjectVisible("Ellipse8") = True
End If

If currentDate = "9" Then
   label.SetObjectVisible("Ellipse9") = True
End If

If currentDate = "10" Then
   label.SetObjectVisible("Ellipse10") = True
End If

If currentDate = "11" Then
   label.SetObjectVisible("Ellipse11") = True
End If

If currentDate = "12" Then
   label.SetObjectVisible("Ellipse12") = True
End If

Soweit scheint der Ansatz auch in Ordnung zu sein, jedoch bekomme ich bei:

Code: Select all

label.SetObjectVisible("Ellipse10") = True
folgenden Fehler ausgegeben:

Code: Select all

Error ID: 150603
Error description: 'Die Syntaxüberprüfung des Scripts ist fehlgeschlagen.'
Detailed information: 'Scriptfehler:
Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'label.SetObjectVisible'
Liniennummer: 43'
Possible solution: ''
Severity ID: 3
Severity name: 'Fehler'
Available actions: OK 
Default action: OK
Group ID: 17
Type ID: 2
Can disable dialog: NO
Hat jemand eine Idee was hier schief läuft bzw. was ich ändern muss damit es funktioniert?


*EDIT*

Wenn ich den Code wie im Beispiel auf der Nicelabel FAQ Seite verwende, nämlich:

Code: Select all

label.SetObjectVisible("Ellipse10", True)
bekomme ich den Fehler:

Code: Select all

Error ID: 150603
Error description: 'Die Syntaxüberprüfung des Scripts ist fehlgeschlagen.'
Detailed information: 'Scriptfehler:
Beim Aufrufen einer Unterroutine (Sub) dürfen keine Klammern verwendet werden
Liniennummer: 43'
Possible solution: ''
Severity ID: 3
Severity name: 'Fehler'
Available actions: OK 
Default action: OK
Group ID: 17
Type ID: 2
Can disable dialog: NO
*/EDIT*

Re: Schnittformen per VB aktivieren/deaktivieren

Posted: Fri Oct 20, 2017 9:01 pm
by jure