Schnittformen per VB aktivieren/deaktivieren

Dieses Forum ist für alle NiceLabel Fragen für die deutschen Benutzer.

Moderators: Georges, milos, RobertK, tb, rom, NiceLabel Support Team

Post Reply
Manuel
Enthusiast
Posts: 7
Joined: Tue Oct 10, 2017 4:03 pm

Schnittformen per VB aktivieren/deaktivieren

Post by Manuel » 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

Manuel
Enthusiast
Posts: 7
Joined: Tue Oct 10, 2017 4:03 pm

Re: Schnittformen per VB aktivieren/deaktivieren

Post by Manuel » 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*

User avatar
jure
NiceLabel
NiceLabel
Posts: 186
Joined: Fri Apr 18, 2014 2:04 pm
Location: NiceLabel HQ
Contact:

Re: Schnittformen per VB aktivieren/deaktivieren

Post by jure » Fri Oct 20, 2017 9:01 pm

There is no place like 127.0.0.1

Post Reply