首页 › TX TextControl › 如何禁止控件自动新增页？

qingtong1166 发表于 2017-9-20 15:36:17

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

利用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)
请问有没有方法禁止控件新增页，或者移除空白的尾页？

Richard.Ma 发表于 2017-9-20 18:19:02

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

TXTextControl.PageCollection.PageEnumerator pageEnum =
                           textControl1.GetPages().GetEnumerator();
            pageEnum.MoveNext();
            int pageCounter = textControl1.GetPages().Count;
            for (int i = 0; i < pageCounter; i++)
            {
                TXTextControl.Page curPage = (TXTextControl.Page)pageEnum.Current;
                if (curPage.Length == 1 || curPage.Length == 0)
                {
                  textControl1.Select(curPage.Start - 1, 1);
                  textControl1.Selection.Text = "";
                }
                else
                  pageEnum.MoveNext();
            }

查看完整版本: 如何禁止控件自动新增页？