Pages 属性
内容
应用于 Form 和 Report 对象的 Pages 属性。
使用 Pages 属性可以返回在窗体或报表上打印页码所需的信息。Integer 型，可读写。
expression.Pages
expression 必需。返回以上对象之一的表达式。
说明
可以在表达式、宏或 Visual Basic 中使用 Pages 属性。
该属性仅在打印预览中或打印时才可用。
如果要在宏或 Visual Basic 中引用 Pages 属性，窗体或报表必须包含一个文本框，该框的 ControlSource 属性设为使用 Pages 的表达式。例如可以使用下列表达式作为页面页脚中文本框的 ControlSource 属性设置。
表达式 |
打印 |
=Page |
页面页脚中的页码（例如 1、2、3） |
="Page " & Page & " of " & Pages |
页面页脚中的 “Page n of nn”（例如，Page 1 of 5、Page 2 of 5） |
=Pages |
窗体或报表中的总页数（例如，5） |
应用于 Control 和 TabControl 对象的 Pages 属性。
返回支持选项卡页的控件（例如 TabControl 对象）中的页码。只读。
expression.Pages
expression 必需。返回以上对象之一的表达式。
示例
应用于 Form 和 Report 对象的 Pages 属性。
下面的示例将显示一条消息，说明报表中共有多少页。若要运行该示例，报表中必须含有一个 ControlSource 属性设为表达式 =Pages 的文本框。若要测试该示例，请将下列代码粘贴到“产品列表”窗体“字母列表”的 Page 事件中。
Dim intTotalPages As Integer
Dim strMsg As String
intTotalPages = Me.Pages
strMsg = "This report contains " & intTotalPages & " pages."
MsgBox strMsg
应用于 Control 和 TabControl 对象的 Pages 属性。
下面的示例将显示一条消息，表明选项卡控件 TabCtl1 上编有选项卡页的页码。
MsgBox "Number of pages in TabCtl1:" & TabCtl1.Pages.Count