回复 1楼mylj123的帖子
你好,
感谢问题反馈,我通过以下代码尝试:
- Private Sub Command1_Click()
-
- TXTextControl1.SectionInsert txBeginAtNewPage, -1
- TXTextControl1.SelStart = -1
- TXTextControl1.SelText = "I'm on Page 2"
-
- TXTextControl1.SectionInsert txBeginAtNewPage, -1
- TXTextControl1.SelStart = -1
- TXTextControl1.SelText = "I'm on Page 3"
- End Sub
- Private Sub Command2_Click()
- Me.TXTextControl1.SectionCurrent = 1
- Me.TXTextControl1.SectionCurrent = 2
- Me.TXTextControl1.SectionBreakKind = 512
- End Sub
复制代码
抛错,信息为:Run-Time Error ‘20008’。请问我们的错误信息是否一致? |