Access VBA教程: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   必需。返回以上对象之一的表达式。

VBA示例

应用于 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

上页:Access VBA教程:PageIndex属性 下页:Access VBA教程:Painting属性

Access VBA教程:Pages属性

Access VBA教程:Painting属性 Access VBA教程:PaintPalette属性
Access VBA教程:PaletteSource属性 Access VBA教程:PaperBin属性
Access VBA教程:PaperSize属性 Access VBA教程:Parent属性
Access VBA教程:Path属性 Access VBA教程:Picture属性
Access VBA教程:PictureAlignment属性 Access VBA教程:PictureData属性
Access VBA教程:PicturePages属性 Access VBA教程:PictureSizeMode属性
Access VBA教程:PictureTiling属性 Access VBA教程:PictureType属性
Access VBA教程:PivotTable属性 Access VBA教程:PivotTableChange属性
Access VBA教程:PopUp属性 Access VBA教程:Port属性
Access VBA教程:PostalAddress属性 Access VBA教程:PreviousControl属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号