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

Schnittformen per VB aktivieren/deaktivieren

Postby 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
Newcomer
 
Posts: 5
Joined: Tue Oct 10, 2017 4:03 pm

Re: Schnittformen per VB aktivieren/deaktivieren

Postby 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*
Manuel
Newcomer
 
Posts: 5
Joined: Tue Oct 10, 2017 4:03 pm

Re: Schnittformen per VB aktivieren/deaktivieren

Postby jure » Fri Oct 20, 2017 9:01 pm

There is no place like 127.0.0.1
User avatar
jure
NiceLabel Support
NiceLabel Support
 
Posts: 172
Joined: Fri Apr 18, 2014 2:04 pm
Location: NiceLabel HQ


Return to Deutsch

Who is online

Users browsing this forum: No registered users and 1 guest