Domino 9 und frühere Versionen > Entwicklung

Dokumente werden nicht ausgedruckt.

<< < (2/2)

Semeaphoros:
Der Ordner muss existieren, er kann mit dem Call nicht neu erstellt werden. In der KB und auch hier im Forum gibt es dazu Einträge

rar:
Das ist schon klar, Jens.
Mir scheint so als ob ich heute von einem Notesbug zum andern hüpfe.  :'(
Heute ist ein schlechter Tag  :P

Bei mir klappt es einfach nicht. Ich kann in Script keine Dokumente in Ordner verschieben, die Gemeinsam, für Desktop privat bei Erstbenutzung sind. Wenn der private Ordner schon existiert.
Bei Normalen SPOFUOrdnern geht es schon.

lG ein verzweifelter
-daniel




Hier der Bsp.Code, dass man die paar Zeilen nicht tippen braucht:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Call collection.PutAllInFolder( "SfDPOFU" )

TMC:
@Daniel: kann man hier nicht Problem 1 von Problem 2 isolieren?

Wie willst Du denn drucken? Aus der Ansicht? Oder wie danach beschrieben die gefundenen Dokumente?

Falls 2.:
Ich würde das mit LotusScript machen.
User durchsucht die DB nach irgendwelchen Kriterien. Vermutlich db.Search ???
Also z.B. Set collection = db.Search(strSearchFormula, datetime, 0)

Nun hast Du also alle relevanten Dokumente in einer NotesDocumentCollection (collection).

Nun druckst Du die Dokumente per LS.
Z.B.:

--- Code: ---Set docLoop = collection.GetFirstDocument
While Not(docLoop Is Nothing)
 docLoop.Form = "frmPrint" 'Deine Druck-Maske - bitte ohne den oben erwähnten @Formula
 Set uidocPrint = uiws.EditDocument( False, docLoop, True)
 Call uidocPrint.Print (1)
 Call uidocPrint.close
 Set docLoop = collection.GetNextDocument(docLoop)
Wend

--- Ende Code ---

rar:
Hi Matthias.
Es stimmt schon, dass die beiden Probleme nix miteinander zu tun haben.
Das zweite Problem (PutAllInFolder bei SDPOFU) ist nur aufgetreten, weil ich verzweifelt nach einem Workaround wegen dem ersten Bug gesucht habe.

Was will ich drucken?
Ich habe eine Ansicht mit ca 300 Dokumenten. In einem Feld steht ein Username. Die Ansicht ist kategorisiert nach dem Usernamen. 120 Doks haben UserA in dem Feld stehen, bei 50 Doks steht UserB und beim Rest steht UserC.
Jetzt muss UserA seine Dokumente mit einer einer alternativen (Druck)maske ausdrucken. Um Papier zu sparen, müssen aber mehrere Doks auf einer Seite ausgedruckt werden. Es werden dann statt den 120 Seiten nur noch ca. 10 Seiten ausgedruckt.
Mit dem Call uidocPrint.Print (1) wird aber jedes Dokument auf eine eigene Seite gedruckt.

Ich glaube die einzigen Möglichkeiten, mehrere Dokumente auf eine Seite zu drucken, sind
- Call uiview.Print(1, 0, 0, False, 0,"Alternative Maske", False)
- @Command([FilePrint] ; "" ; "" ; "" ; "" ; "" ; "Alternative Maske" )

Aber damit hab ich ja die Probleme.

Die Collection befülle ich übrigens mit Set coll = view.Getalldocumentsbykey(session.UserName,True)
und verschiebe sie dann in den SPOFUOrdner, aus dem ich drucken will.


Mir ist aber grad eingefallen, dass ich die SPOFU ganz weglassen könnte und direkt aus der kategorisierten Ansicht heraus drucken kann. Ich müsste dann halt nur noch wissen wie ich mehrere Dokumente selektieren kann.

lG
-daniel in alter frische

rar:
 :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :) :)
Ich habs geschafft. Jetzt funktioniert alles wie es sollte.

Vielen Dank für die Hilfen

-daniel

Navigation

[0] Themen-Index

[*] Vorherige Sete