PC-Dmis 2010 MR1 Object Library | Send comments on this topic. | See Object Hierarchy Chart
Page Object
See Also Members

Collapse All Expand All

# Description

This object contains information about a specific page in the Report window.

# Object Model

# Example

Sub Main

' This example loads a report template and then writes properties of each page to

' a text file in the same directory that contains this script.

' Modify the pathway and filename used for the LoadReportTemplate statement.

Dim App As Object

Dim PartProg As Object

Dim RepWin As Object

Dim Pages As Object

Dim Page As Object

Dim ReportControls As Object

Set App = CreateObject("Pcdlrn.Application")

Set PartProg = App.ActivePartProgram

Set RepWin = PartProg.ReportWindow

Set Pages = RepWin.Pages

RepWin.LoadReportTemplate "C:\PCDMIS43RC2\REPORTING\TEXTONLY.RTP"

RepWin.RefreshReport

Dim i,intWidth,intHeight As Integer

i = 1

Open "page_properties.txt" For Append As #1 ' This creates the file if it doesn't exist.

Write #1, "----- Page Results for " & RepWin.CurrentReport & " on " & Date() & " at " & Time() & " -----"

While i <= Pages.Count

Write #1, "==Page #" & i &" =="

If Pages.Item(i).LandScape <> 0 Then

Write #1, "Page is landscape"

Else

Write #1, "Page is not landscape"

End If

intWidth = Pages.Item(i).Width

intHeight = Pages.Item(i).Height

Write #1,"Page height is " & intHeight

Write #1,"Page width is " & intWidth

Write #1,"Page is in section: " & Pages.Item(i).Section

Write #1,"Page is custom: " & Pages.Item(i).Custom

Write #1,"Page is duplicated: " & Pages.Item(i).Duplicated

Write #1,"Page has this number of controls: " & Pages.Item(i).ReportControls.Count

i = i + 1

Wend

Close #1

End Sub

# See Also

Page Members

© Wilcox Associates, Inc. All Rights Reserved.

© 2010 All Rights Reserved.