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

收藏

利用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 · Richard.Ma

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

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();
}

复制代码

		自动登录	找回密码
密码			立即注册

[已处理] 如何禁止控件自动新增页？

1 个回复

SpreadJS 认证

SpreadJS 高级认证

讲师达人

悬赏达人