Domino 9 und frühere Versionen > ND6: Entwicklung

Script zum Drucken

(1/2) > >>

Wiesel:
Hallo!

Ich möchte aus der Ansicht heraus ein markiertes Dokument drucken.
Das Dokument soll aber vorab eine andere Maske zugeordnet bekommen (Druckmaske) und in dieser Druckmaske wird noch ein Feld gefüllt.

Ich bekomme nun leider eine Fehlermeldung.

Hier erstmal der Script:

Sub Click(Source As Button)
   Dim workspace As NotesUIWorkspace
   Dim db As NotesDatabase
   Dim session As New NotesSession
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
         
   Set db = session.CurrentDatabase
   Set doc = session.DocumentContext
   
   If doc.form(0) = "Protokoll" Then
      doc.form = "(DruckProtokoll)"
            
      doc.txtBeschlussv = "Test"
      
      Set uidoc = workspace.EditDocument(False,doc)
      Call uidoc.Print(1,1)
      
      doc.form = "Protokoll"   
      doc.txtBeschlussv = ""
   End If   
   
   Call doc.save(True,True)
   Call uidoc.Close
   
End Sub


In der Zeile "Set uidoc = workspace.EditDocument(False,doc)" kommt die Fehlermeldung "Object variable not set".

Nachdem was ich so in den Hilfen nachlesen konnte, finde ich keinen Fehler im Script.
Was ist falsch?

Danke und Gruß,
Wiesel

Ayhan:
Hi,

probier statt:
Dim workspace As NotesUIWorkspace

folgendes:
Dim workspace As New NotesUIWorkspace

MadMetzger:
Deine Variable workspace wird nicht initialisiert. Entweder du änderst die Dim-Anweisung zu

--- Code: ---Dim workspace as new NotesUiWorkspace
--- Ende Code ---
oder du schreibst später vor deinem Aufruf

--- Code: ---set workspace = new NotesUiWorkspace
--- Ende Code ---

Danach sollte dein Script so durchlaufen.

EDIT: Ayhan war schneller, aber es gibt zwei mögliche Lösungen.

Wiesel:
Super, das klappt.
Die kleinen aber feinen Unterschiede.

Wann benutzt man denn
Dim workspace as NotesUIWorkspace
und wann benutzte man
Dim workspace as New NoteUIWorkspace?

Thomas Schulte:
Wenn du das in den Globals deklarierst, dann das erste sonst das zweite

Navigation

[0] Themen-Index

[#] Nächste Seite