PC-DMIS 2019 R2 Object Library
Page Object
See Also  Members  Send Topic Feedback | See Object Hierarchy Chart
PCDLRN ActiveX DLL : Page Object

Glossary Item Box

Description

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

Object Model

Page ObjectApplication ObjectPages ObjectReportControls Collection

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

Copyright © 2019. Hexagon Manufacturing Intelligence – Metrology Software, Inc. All Rights Reserved.