如何禁止控件自动新增页？

利用Append方法新增内容时，总是加了一个空白页，代码如下
        Dim sTx As Byte()
        TextControl2.Text = ""
        Me.TextControl1.GetPages(PageNumber).Select()
        Me.TextControl1.Selection.Save(sTx, TXTextControl.BinaryStreamType.MSWord)
        Me.TextControl2.Append(sTx, TXTextControl.BinaryStreamType.MSWord, AppendSettings.None)

        '添加文档后可能有空白页,删除空白页
        '但是无效，删除不掉
        If Me.TextControl2.GetPages.Count > 1 Then
             Me.TextControl2.GetPages(2).Select()
             Me.TextControl2.Selection.Text = ""
        End If
        ‘打印时仍然是两页，第二页空白
        Me.TextControl2.PrintPreview(MyPrintDoc)
请问有没有方法禁止控件新增页，或者移除空白的尾页？

您好，可以通过以下的代码删除空白页

1. TXTextControl.PageCollection.PageEnumerator pageEnum =
   
2.                            textControl1.GetPages().GetEnumerator();
   
3.             pageEnum.MoveNext();
   
4.             int pageCounter = textControl1.GetPages().Count;
   
5.             for (int i = 0; i < pageCounter; i++)
   
6.             {
   
7.                 TXTextControl.Page curPage = (TXTextControl.Page)pageEnum.Current;
   
8.                 if (curPage.Length == 1 || curPage.Length == 0)
   
9.                 {
   
10.                     textControl1.Select(curPage.Start - 1, 1);
    
11.                     textControl1.Selection.Text = "";
    
12.                 }
    
13.                 else
    
14.                     pageEnum.MoveNext();
    
15.             }

复制代码