Pages 屬性
內(nèi)容
應(yīng)用于 Form 和 Report 對(duì)象的 Pages 屬性。
使用 Pages 屬性可以返回在窗體或報(bào)表上打印頁碼所需的信息。Integer 型，可讀寫。
expression.Pages
expression 必需。返回以上對(duì)象之一的表達(dá)式。
說明
可以在表達(dá)式、宏或 Visual Basic 中使用 Pages 屬性。
該屬性僅在打印預(yù)覽中或打印時(shí)才可用。
如果要在宏或 Visual Basic 中引用 Pages 屬性，窗體或報(bào)表必須包含一個(gè)文本框，該框的 ControlSource 屬性設(shè)為使用 Pages 的表達(dá)式。例如可以使用下列表達(dá)式作為頁面頁腳中文本框的 ControlSource 屬性設(shè)置。
表達(dá)式 |
打印 |
=Page |
頁面頁腳中的頁碼（例如 1、2、3） |
="Page " & Page & " of " & Pages |
頁面頁腳中的 “Page n of nn”（例如，Page 1 of 5、Page 2 of 5） |
=Pages |
窗體或報(bào)表中的總頁數(shù)（例如，5） |
應(yīng)用于 Control 和 TabControl 對(duì)象的 Pages 屬性。
返回支持選項(xiàng)卡頁的控件（例如 TabControl 對(duì)象）中的頁碼。只讀。
expression.Pages
expression 必需。返回以上對(duì)象之一的表達(dá)式。
示例
應(yīng)用于 Form 和 Report 對(duì)象的 Pages 屬性。
下面的示例將顯示一條消息，說明報(bào)表中共有多少頁。若要運(yùn)行該示例，報(bào)表中必須含有一個(gè) ControlSource 屬性設(shè)為表達(dá)式 =Pages 的文本框。若要測(cè)試該示例，請(qǐng)將下列代碼粘貼到“產(chǎn)品列表”窗體“字母列表”的 Page 事件中。
Dim intTotalPages As Integer
Dim strMsg As String
intTotalPages = Me.Pages
strMsg = "This report contains " & intTotalPages & " pages."
MsgBox strMsg
應(yīng)用于 Control 和 TabControl 對(duì)象的 Pages 屬性。
下面的示例將顯示一條消息，表明選項(xiàng)卡控件 TabCtl1 上編有選項(xiàng)卡頁的頁碼。
MsgBox "Number of pages in TabCtl1:" & TabCtl1.Pages.Count