Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Alexander15 am 31.08.10 - 16:57:18

Titel: Etikettendrucker und Lotus Notes
Beitrag von: Alexander15 am 31.08.10 - 16:57:18
Hallo zusammen,

ich bin gerade dabei, eine Datenbank für mein Labor zu entwickeln, welche die verschiedenen Chemikalien verwalten soll.
Für jedes Gebinde soll beim Anlegen in der Datenbank automatisch ein Etikett auf einem Labeldrucker (z.B. von Zebra) ausgedruckt werden. Wenn ein Gebinde als geöffnet oder leer markiert wird, soll ebenfalls automatisch ein neues Etikett ausgedruckt werden.

Wie steuer ich so einen Drucker am besten an? Kann ich einfach das Etikett als Formular in der DB erstellen und dieses dann auf dem Etikettendrucker ausdrucken (so wie man auch auf einem normalen Laserjet ausdruckt), oder muss ich mit einem speziellen Script arbeiten?
Wenn Script: Wie ist so ein spezielles Druckerscript aufgebaut?
Hat da jemand vielleicht einen Tip für mich?

Besten Dank!

Alex
Titel: Re: Etikettendrucker und Lotus Notes
Beitrag von: bikerboy am 01.09.10 - 11:18:00
Ich würde jetzt fast vermuten, dass kommt ganz stark auf den Drucker an.

Wenn der Drucker einfach druckt was man ihm gibt wird eine einfache Maske/Formular ohne Script reichen. Ich hatte mal nen Dyno- Drucker da musste ich ein bisschen die API antriggern, damit das klappt.
Titel: Re: Etikettendrucker und Lotus Notes
Beitrag von: Marius56 am 23.09.10 - 11:32:18
Hallo zusammen,
ich hatte das ganz einfach gelöst:
Eine Maske mit den Inhalten erstellen die benötigt werden
Die Maske genauso benennen wie die Originalmaske + Namenszusatz "_print"
Den Inhalt des Datensatzes in diese Maske kopieren, Drucken und Schließen (ohne Speichern saveoptions = "0")

Beispiel:

Sub Click(Source As Button)
   
   Dim wk As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   
   Set db = session.currentdatabase
   Set uidoc = wk.currentdocument
   
   Call uidoc.Save
   
   Set doc = uidoc.document
   Dim print_doc As New NotesDocument(db)
   Call Doc.CopyAllItems( print_doc)
   
   print_doc.form=print_doc.form(0)+"_print"
   Set print_uidoc = wk.EditDocument( False, print_doc)
   print_uidoc.print
   print_uidoc.close
   
End Sub

Marius
Titel: Re: Etikettendrucker und Lotus Notes
Beitrag von: Ralf_M_Petter am 23.09.10 - 11:43:59
Ich würde mich mit der Zebraseitenbeschreibungssprache beschäftigen. Die ist sehr einfach und optimal für Etiketten ausgelegt. Wir schicken die Labels zwar vom Host sollte aber von Windows aus auch möglich sein. Schlimmstenfalls im Treiber eine Schrift definieren die als Befehlsschrift verwendet wird und dann diese Schrift in der Druckmaste verwenden wie Marius geschrieben hat.

Grüße

Ralf