Drucken mehrer Dokumente aus dem Backend

[Balou764]

Hallo zusammen,

ich habe das Problem, dass ich auf einen schlag mehrere Dokumente drucken muss. Ich stelle mir die Routine so vor, dass in einer View mehrere Dokumente selektiert werden und dann die Print Routine aufgerufen wird (Manuelle Funktionsweise) Nur bekomme ich LS nicht mehrere Dokumente in einer UIView selektiert. Hat jemand hierzu vielleicht einen Lösungsansatz?

Meine Routine sieht derzeit wie folgt aus:


Sub Click(Source As Button)
   Dim ws As New Notesuiworkspace
   Dim uiDB As NotesuiDatabase
   Dim doc As NotesDocument
   Dim NDoc As Notesdocument
   Dim uiView As NotesuiView
   Dim db As NotesDatabase
   
   Set doc=ws.currentDocument.Document
   Set uiDB=ws.CurrentDatabase
   
   Set db=uiDB.Database
   
   Call UIDB.OpenView( "News",,True)
   Set uiView = ws.currentview
   
   Forall id In doc.LinkedDocs
      Set nDoc=db.GetDocumentbyUNID(id)
      If Not nDoc Is Nothing Then
         Call uiView.SelectDocument(nDoc)
         count=count+1
      End If
   End Forall
   Messagebox "drucke " & count & " Dokumente",0,"Print"
   Call uiView.Print()
   
End Sub

[koehlerbv]

So wird das prinzipiell nichts, siehe bitte folgenden Thread (bitte aufmerksam lesen):
http://www.atnotes.de/index.php?board=7;action=display;threadid=9763;start=0

Erst mit R6 scheint ein Absturz beim Druck von n Dokumenten "am Stück" verhinderbar zu sein.

Warum nimmst Du eigentlich nicht @Command ([FilePrint]) ?

Bernhard