Domino 9 und frühere Versionen > ND8: Entwicklung

Problem mit Script: Drucken markierter Dokumente (nur erste Seite)

<< < (2/3) > >>

skrueger:
Hi !
danke für die Rege Teilnahme. :-)
Habe den Code nochmal geändert. Aber immer noch die Fehlermeldung "Varaint does not contain an Object "
 ???



Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uiview As NotesUIView
   
   Set db = session.CurrentDatabase
   Set uiview = workspace.CurrentView
   Set collection = db.unProcesseddocuments
   Set doc= collection.GetFirstDocument
   
   Do Until doc Is Nothing
      
      Set Collection = notesUIView.Documents   
      Call uiview.Print(1, 1, 1 )
         
      Set doc= collection.GetNextDocument(doc)
      
   Loop
   
   
End Sub

ascabg:
Zum Einen.
Nimm die Anweisung zum Drucken mal aus der Schleife heraus.

Zum Anderen.
Wo hast Du denn den Button (ich nehme mal an es ist einer) eingebaut?
Und auch, was sagt denn der Debugger?
An welcher Stelle Deines Code kommt es zu dem besagten Fehler?


Andreas

botschi:
Die Collection wird leer sein...

Matthias

skrueger:
Es ist eine aktion in einer ansicht.
Ich bin nicht sehr fit mit script :-) deshalb meine vielen fragen.

Hatschi:
Hallo,

warum wird in der Schleife die Collection neu gefüllt? Damit überscheibst du dir doch die vorher übernommenen unprocessedDocuments.

Kommentiere die Zeile in der Schleife
Set Collection = notesUIView.Documents   
einmal aus.

Auch mich würde interessieren an welcher Stelle die Fehlermeldung kommt. Wieviele Dokument zeigt der Debugger in der Collection an, wenn er in die Schleife kommt?

Bernd

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete