lwj998 发表于 2012-3-25 16:24:00

怎样设置页码

Txt text ActiveX v15.1 with Sp3   中怎样设置页码在页眉页脚中？

ZenosZeng 发表于 2012-3-26 10:06:00

回复 1# lwj998 的帖子

你看下面的代码是否满足你的需求：Dim fieldNo Dim noPagesPrivate Sub Form_Load()
         TXTextControl1.HeaderFooter = txHeader
      TXTextControl1.HeaderFooterSelect txHeader
         TXTextControl1.Text = "Page:of"
         TXTextControl1.SelStart = Len("Page: ")
         TXTextControl1.FieldInsert ("")
         TXTextControl1.FieldType(TXTextControl1.FieldCurrent) = txFieldPageNumber
         TXTextControl1.SelStart = Len("Page: x of ")
         TXTextControl1.FieldInsert ""
         fieldNo = TXTextControl1.FieldCurrent
         noPages = TXTextControl1.CurrentPages
         TXTextControl1.FieldText = Str(noPages)
      TXTextControl1.HeaderFooterSelect 0
End SubPrivate Sub TXTextControl1_Change()
      If (noPages <> -1) And (TXTextControl1.CurrentPages <> noPages) Then
       noPages = TXTextControl1.CurrentPages
       TXTextControl1.HeaderFooterSelect txHeader
       TXTextControl1.FieldCurrent = fieldNo
       TXTextControl1.FieldText = Str(noPages)
       TXTextControl1.HeaderFooterSelect 0
      TXTextControl1.Refresh
   End IfEnd Sub

lwj998 发表于 2012-3-26 10:23:00

非常感谢

ZenosZeng 发表于 2012-3-27 11:24:00

不客气，哈哈
页: [1]
查看完整版本: 怎样设置页码