全部显示
应用于 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