如题:
Me.TextControl1.HeadersAndFooters.Add(TXTextControl.HeaderFooterType.Header)
'Dim pn As New TXTextControl.PageNumberField(10, TXTextControl.NumberFormat.ArabicNumbers)
'Dim newFoot As TXTextControl.HeaderFooter = TextControl2.Sections.GetItem().HeadersAndFooters.GetItem(TXTextControl.HeaderFooterType.EvenFooter)
Dim newHead As TXTextControl.HeaderFooter
newHead = Me.TextControl1.Sections.GetItem().HeadersAndFooters.GetItem(TXTextControl.HeaderFooterType.Header)
'newHead.TextFields.Add(pn)
newHead.PageNumberFields.Add(New TXTextControl.PageNumberField( _
2, TXTextControl.NumberFormat.ArabicNumbers))
不起作用,每次都是从1开始。
|
|