NiceLabel Forums

Posted: **Wed Oct 11, 2017 7:29 am**

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

Posted: **Thu Oct 19, 2017 3:33 pm**

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*

Posted: **Fri Oct 20, 2017 9:01 pm**

viewtopic.php?f=10&t=20273&p=61953#p61953

NiceLabel Forums

Schnittformen per VB aktivieren/deaktivieren

Schnittformen per VB aktivieren/deaktivieren

Re: Schnittformen per VB aktivieren/deaktivieren

Re: Schnittformen per VB aktivieren/deaktivieren