Domino 9 und frühere Versionen > ND6: Entwicklung

Print Seiten "sammeln"

<< < (2/2)

Gogun_Beokz:
OK, so funktioniert es eigentlich ganz ordentlich.

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim RTCollect As notesdocument
   Dim adoc As notesdocument
   Dim uidoc As notesuidocument
   Dim Responses As NotesDocumentCollection
   Dim success As Boolean
   
   'On Error Resume Next
   Set db = session.CurrentDatabase
   'Erstellen des Body-Dokuments
   Set RTCollect = New NotesDocument(db)
   RTCollect.Form         = "PRT"
   Dim rtitem As New notesrichtextitem(RTCollect,"Body")
   
   Set doc = ws.currentdocument.Document
   doc.form = "PRTDMaMmD"
   success = doc.RenderToRTItem( rtitem )
   
   Set Responses = doc.Responses                                            
   Set adoc = Responses.GetFirstDocument                        
   While Not (adoc Is Nothing)                                          
      
      If adoc.form(0) = "DBeschreibung" Then
         adoc.form = "PRTDBeschreibung"
      End If 
      If adoc.form(0) = "MmDAnforderung" Then
         adoc.form = "PRTMmDAnforderung"
      End If   
      
      If adoc.form(0) = "MaBestellung" Then
         adoc.form = "PRTMaBestellung"
      End If         
      
      Call rtitem.AddNewline(1)
      success = adoc.RenderToRTItem( rtitem )
      Set adoc = Responses.GetNextDocument(adoc)   
   Wend
   Call RTCollect.Save(True,True)
   Set uidoc = ws.EditDocument(False,RTCollect)
   Call uidoc.Print(1,1)
   Call uidoc.close
   Call RTCollect.Remove(True)
End Sub

Die Maske "PRT" enthält nur das "Body" RT-Feld. Danke für die Hilfe!

Navigation

[0] Themen-Index

[*] Vorherige Sete