Dokumentenbibliothek drucken

[Centaury]

Hallo Leute!
Ich habe hier eine Office Dokumentenbibliothek (nahezu unverändert).
Da sind ca. 100 Notesdokumente mit jeweils einem Office (Word) Dokument drin.
Wie kann ich alle bzw. alle ausgewählten Word Dokumente in der Datenbank drucken?
Danke schonmal!

[Centaury]

Hab zwar noch keine direkte Lösung, aber ein Workaround:

Erst löse ich alle ich alle Angänge mit folgendem Agenten:

Code

   Dim ses As NotesSession
   Dim db As NotesDatabase
   Dim col As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim body As NotesRichTextItem
   Dim rtnav As NotesRichTextNavigator
   Dim att As NotesEmbeddedObject
   Dim path As String
   
   Set ses = New NotesSession
   Set db = ses.CurrentDatabase
   Set col = db.UnprocessedDocuments
   Set doc = col.GetFirstDocument
   
   path = Inputbox$ ("Bitte Pfad eingeben:", "Anhänge lösen")
   
   If path = "" Then Exit Sub
   
   While Not (doc Is Nothing)
      If doc.HasEmbedded Then 
         Set body = doc.GetFirstItem("WDocuments")
         Set rtnav = body.CreateNavigator
         
         REM Get attachments
         If rtnav.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Then
            Do
               Set att = rtnav.GetElement()
               filepath$ = path & att.Source
               Call att.ExtractFile(filepath$)
               Print filepath$ & " extracted"
            Loop While rtnav.FindNextElement()
         End If
         
      End If
      Set doc = col.GetNextDocument (doc)
   Wend

Und dann ziehe ich alle per Drag&Grop auf den Drucker...

Zum Glück brauche ich das nicht oft!

[wflamme]

Also ich würde das über COM machen, also docs der Reihe nach detachen, in Word laden und aus Word drucken. Hat den Vorteil, daß Du aus Word neben Druck auch Massenkonvertierungen in andere Formate etc miterledigen kannst.. der Code ist dann zwar langsamer, aber flexibler.

[Centaury]

Naja, bloß z.T. sind's auch Excel Dateien...
War wahrscheinlich eh nur für dieses eine Mal, von daher nicht so wild...

[wflamme]

Nur zur Info:
Die Vorgehensweisen sind bei Word/Excel ziemlich ähnlich, ja überhaupt innerhalb der ganzen Office-Suite, so daß das kein großes Ding ist.

"Kennst Du einen, kennst Du alle"