Pages Property
From Microsoft Access Visual Basic
Pages Property
Pages property as it applies to the Form and Report objects.
You can use the Pages property to return information needed to print page numbers in a form or report. Read/write Integer.
expression.Pages
expression Required. An expression that returns one of the above objects.
Remarks
You can use the Pages properties in an expression, a macro, or Visual Basic.
This property is only available in Print Preview or when printing.
To refer to the Pages property in a macro or Visual Basic, the form or report must include a text box whose ControlSource property is set to an expression that uses Pages. For example, you can use the following expressions as the ControlSource property setting for a text box in a page footer.
| This expression | Prints |
|---|---|
| =Page | A page number (for example, 1, 2, 3) in the page footer. |
| ="Page " & Page & " of " & Pages | "Page n of nn" (for example, Page 1 of 5, Page 2 of 5) in the page footer. |
| =Pages | The total number pages in the form or report (for example, 5). |
Pages property as it applies to the Control and TabControl objects.
Returns the number of pages in a control that supports tabbed pages (for example, a TabControl object). Read-only.
expression.Pages
expression Required. An expression that returns one of the above objects.
Example
As it applies to the Form and Report objects.
The following example displays a message that tells how many pages
the report contains. For this example to work, the report must include a text
box for which the ControlSource property is set to the expression =Pages.
To test this example, paste the following code into the Page Event for the
Alphabetical List of Products form.
Dim intTotalPages As Integer
Dim strMsg As String
intTotalPages = Me.Pages
strMsg = "This report contains " & intTotalPages & " pages."
MsgBox strMsgAs it applies to the Control and TabControl objects.
The following example displays a message indicating the number of tabbed pages on tab control TabCtl1.
MsgBox "Number of pages in TabCtl1:" & TabCtl1.Pages.Count