mehrere Dokumente: 1. Compose, 2. Print, 3. Close
- mbender
- Erledigt
-
-
also der Fehler ist folgender:
- Du musst erst die dc holen und dann das uidoc, sonst ist die dc leer (habs mit dem Debugger rausgefunden)Änder auch noch die Zeile Set uidoc, dann bist Du nicht von dem Server und Pfad-Eintrag abhängig.
Code
Alles anzeigenDim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim db As NotesDatabase Set ses = New NotesSession Set db = ses.CurrentDatabase Set dc = db.UnprocessedDocuments Set uidoc = ws.ComposeDocument(db.server, db.FilePath, "Prüfbericht") Dim doc As NotesDocument Set doc = uidoc.Document Set doc_dc = dc.GetFirstDocument While Not doc_dc Is Nothing doc_dc.Form = "Prüfbericht" Set uidoc = ws.EditDocument(True, doc_dc) Call uidoc.Save Call uidoc.Print(1) Call uidoc.Close Set doc_dc = dc.GetNextDocument(doc_dc) Wend
Gruß
Dirk -
juchu es klappt!
DANKE DANKE an alle
-
einen hab ich noch ,)
er macht das zwar, nur das zuerst gewählte document
bleibt am ende "offen stehen" bzw. wenn man nur
1 dokument auswählt...das mit dem umbennen des form-feldes war zwar nicht
gewollt, aber doch gut. dadurch seh ich nämlich für welche
bestellung kein prüfbericht gedruckt wurde
thx
marc -
lösche die Zeile
Set uidoc = ws.ComposeDocument(db.server, db.FilePath, \"Prüfbericht\")
Gruß
Dirk -
Hi,
wenn Du gerade am Löschen bist, die "dim doc" und "set doc" Zeilen sind auch nicht mehr notwendig,
dafür fehlt "dim doc_dc as notesdocument"