熱心網友

Description: * In my code, I compose a document with NotesDatabase。CreateDocument, set the form to be the hidden"Page Break" form, and render the document to a rich text item withNotesDocument。RenderToRTItem(rtitem)。 Then I callritem。AppendRTItem(RTItem_To_Which_We_Add_PageBreak) Code: * Dim pbdoc As notesdocument ' pbdoc is hidden page break docDim session As New notessessionDim db As notesdatabase Set db = session。currentdatabaseSet pbdoc = db。createdocumentpbdoc。form = "PageBreak"pbdoc。save True,False While doc。hasitem("PBHold") ' Clean out any existing ' "PBHold" rich text fields on ' the doc so I can create a ' new one--doc is the current ' backend document containing 'the field to which I want to 'append a page breakSet remi = doc。getfirstitem("PBHold")remi。remove WendDim pbrt As notesrichtextitem Set pbrt =doc。createrichtextitem("PBHold") doc。save True,FalseIf pbrt。Type = RICHTEXT Thensuccess = pbdoc。rendertoRTitem(pbrt)Call rtitem。appendrtitem(pbrt)End Ifpbdoc。remove True 。