Menge identischer Kopien mit VBS steuern (NL5 Pro)

[TheAllrounder]

Hallo zusammen,

wir nutzen Nice Label 5 Pro und wollen zukünftig unseren Etikettendruck umstellen.

Es ist geplant, nur ein Etikett als Design Vorlage zu erstellen und bei Druckauftrag mit Daten aus einem ExcelSheet zu füllen. Dies funktioniert auch gut. (via Datenbankverbindung)

Wir haben nun aber Etiketten, die teilweise einzeln auf die Versandeinheit geklebt werden und Artikel, bei denen wir 2 Ausführungen (= 2 identische Kopien) eines Etiketts auf die Versandeinheit kleben müssen.
Ob der jeweilige Artikel 1 oder 2 Kopien eines Etiketts bekommt, ist in der Excelliste hinterlegt.

Wir haben > 300 Artikel und drucken je Produktion auch bis zu 250 Etiketten am Stück (mit fortlaufendem NVE-Zähler).
Da es schwierig ist, bei diesen vielen Artikel als Lagerarbeiter vor Ort, den Überblick zu behalten, welche Artikel 1 Kopie und welche 2 Kopien bekommen, wollten wir die "Automatisierung" wie oben beschrieben.

Allerdings weiß ich nicht, wie ich dies nun -vermutlich mit VBS- umsetzen kann.

Hat jemand Ideen?

[Frank]

Hallo,

für diese Funktionalität ist NiceForm wie geschaffen!
(NiceForm ist in der Nicelabel Suite enthalten)

Dort kann Variablengesteuert (aus der Tabelle)
die Druckmenge, Etikettensätze, Identische Kopien eingestellt werden.

... also alles wie gewünscht!

[TheAllrounder]

ok ...

aber gibt es Möglichkeiten, dies auch in NiceLabel Pro zu schaffen? Wir würden uns ungern jetzt "schon wieder" eine neue Software holen wollen ....


UND:
kann ich via Funktionen -> VBScript
einzelne "Programmzustände" abfragen? Sprich: ich würde gern eine MsgBox aufpoppen lassen, wenn der Nutzer im Druck-Dialog einen Datensatz aus der verbundenen DB ausgewählt hat

[Frank]

Hallo,

jetzt "schon wieder" eine neue Software

> "Upgrade"

ansonsten habe ich darüber noch nicht Nachgedacht...
...warum auch, denn diese Funktionalität ist ja verfügbar.

[TheAllrounder]

mmh ... würde mich ja nun mal informieren wollen, wie teuer das werden würde ....

aber irgendwie bin ich planlos auf der website unterwegs
oder kann ich NiceForm nicht einzeln dazu laden, sondern muss ein "upgrade" auf NL Suite machen?????

[Frank]

Sie dürfen gerne Anfragen: info@sde-web.de

... Das hängt auch immer von Ihrer jetzigen Version ab. (Version, Dongel (USB od Parallel), SN)
und NiceForm ist ein Bestandteil von Nicelabel Suite.

[TheAllrounder]

ich habe jetzt mal die NL PRO 5 Demo erweitert auf Suite, so dass ich u.a. auch NiceForm habe....

komme erstmal nich so richtig klar - er möchte andauernd Zugangsdaten für die mit dem Label verbundene Datenbank (Exelsheet) haben, aber die Datei ist frei zugänglich und ohne jegliches Passwort????
Ich habe auch nur "NiceForm" auf und keine weitere Anwendung, die auf das Excelsheet zugreift ....

woran liegt das jetzt?

[Frank]

Hallo,

er möchte andauernd Zugangsdaten für die mit dem Label verbundene Datenbank

das liegt ev. an der Doppelten Datenanbindung...
bei NiceForm sollte die Datenbank nicht im Etikett sondern in NiceForm angebunden sein (keinesfalls doppelt)

[TheAllrounder]

2 Fragen:
a) muss ich also ein ein Etikett mit Variablen Anlegen OHNE DB-Anbindung und dann dieses via NiceForm und dazugehöriger DB-Anbindung dann mit Daten je Druck füllen?


b) kostet das Upgrade der NL 5 PRO Vollversion auf NL 5 Suite Geld? wenn ja, wo finde ich die Infos dazu?

[Frank]

Hallo,

a: eine fertige Lösung für Ihre Umgebung zu erstellen ist eine Dienstleistung.

b: ja, ein Upgrade kostet, bitte Anfragen.

ich hänge Ihnen mal eine Demoversion an:
Etikettendruck mit NiceForm und Excel Tabelle.
einfach die im Setup enthaltene "Setup.bat" ausführen ->siehe readme
-Tabelle definiert das Etikett, welches geladen werden soll
-Tabelle enthält anzahl der wiederholenden Datensätze
-Tabelle enthält anzahl der kopien des Etikettes

... dann bekommt man einen Eindruck der Möglichkeiten

[TheAllrounder]

ok also upgrade von NL 5 PRO auf NL 5 Suite hat sich als deutlich zu teuer herausgestellt .....

ich brauche also eine Lösung für NL 5 Pro ...

wie kann ich via VBScript die Anzahl an identischen Etikettenkopien im Druck-Dialog von Nice Label automatisch festlegen lassen?

[TheAllrounder]

ok ... bis die IT unsere netzwerkversion installiert hat, müssen wir fix unsere lokalen versionen weiter nutzen ....

u.a. habe ich nun die herausforderung, dass ein Zählerstand aus der Datenbank ausgelesen und pro Etikett hochgezählt wird.

dieser "neue" Zählerstand soll am Ende wieder in die Datenbank (Excelliste) eingelesen werden.

Es gibt hunderte Zeilen von Datensätzen und die dazugehörige Spalte "Zähler".
Wie bekomme ich nun nach dem Drucken den aktuellen, hochgezählten Zählerstand wieder in die Excelliste?
mit VBS schaffe ich es irgendwie (noch) nicht richtig - er schreibt mir in den Text-Dateien bzw in die Excelliste immer direkt in die erste Zeile (& erste Spalte) ....

[TheAllrounder]

ok danke ... für s lesen ... oder wie auch immer ...


für weiterlesende:
habe das Thema DDE entdeckt und versuche mich jetzt damit.

hier das EXCEL VBA Codebeispiel aus dem NiceLabel Integration Pack

Code: Select all

'
' NicePrint DDE Macro
' Macro for DDE communication with NiceLabel
'
'
Sub NicePrint()
  Chan = DDEInitiate("NICELABEL5", "LINE")            ' open DDE link
  'DDEExecute Chan, "label ""C:\Program Files\EuroPlus\NiceLabel 5\Samples\Labels\SAMPLE3.LBL"" "
  DDEExecute Chan, "label ""C:\Programme\EuroPlus\NiceLabel v5 Integration Pack\Samples\NiceLabel\DDE"" "
  DDEExecute Chan, "set ""Bar Code""=123456789012"
  DDEExecute Chan, "set Date=1.1.99"
  DDEExecute Chan, "set Memo=" + Chr$(34) + "MICROSOFT EXCEL" + Chr$(13) + Chr$(10) + "DDE sample" + Chr$(34)
  DDEExecute Chan, "set Product=" + Chr$(34) + CStr(ActiveCell.Value) + Chr$(34)
  qty = InputBox("Select quantity of labels:")
  DDEExecute Chan, "set Quantity=" + qty
  DDEExecute Chan, "print " + qty                  ' Send label quantity
  DDETerminate Chan                                ' Terminate the DDE link
End Sub

Für mein Problem, je Etikett variable Kopie-Mengen zu nutzen, muss der PRINT Befehl nur angepasst werden

Code: Select all

 DDEExecute Chan, "print " + qty  + ",0," + COPIES                ' Send label quantity

PRINT [Menge],[ÜBERSPRINGEN],[KOPIEN]