Habe eine Adressendatenbank entwickelt und erhebliche Problem mit Ettiketten innerhalb Notes. Kam daher auf die Idee ein Sharewareettikettenprogramm zu mißbrauchen.Hierzu muß ich meine Daten in eine Textdatei schreiben: jedes Feld eine neue Zeile - also ohne Trenner. Habe mir hierfür ein Scrip geschrieben und innerhalb eines geöffneten Dokumentes funktioniert es. Nach Anpassung auf NotesView erhalte ich einen Type Mismatch Fehler???
Bin am verzweifeln und wäre das Leben nicht so lebenswert .......
Was mach ich falsch?
Habe meinen Script eingestellt und in der
Reihe -> Print #filenum%, Texteingabe erscheint der Fehler
Sub Initialize
Dim i As Integer
Dim zeile As String
Dim Zeilen As Integer
Dim Texteingabe As Variant
Dim session As New notessession
Dim db As notesdatabase
Set db = session.currentdatabase
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = ws.currentdocument
Datei= "C:\Test\EttTest.txt"
Texteingabe = uidoc.fieldgettext("Anschrift")
Zeilen=Cint(Zeile)
fileNum% = Freefile()
Open Datei For Append As fileNum%
For i = 0 To zeilen
Print #filenum%, Chr(13)
i=i+1
Next i
Print #filenum%, Texteingabe
Close fileNum%
End Sub
