This method switches the report window to Full Report Mode.
Visual Basic |
---|
Public Function FullReportMode() As Long |
Long value. This returns -1 if the function succeeds and 0 if it does not.
Sub Main
Dim App As Object
Dim PartProg As Object
Dim RepWin As Object
Set App = CreateObject("Pcdlrn.Application")
Set PartProg = App.ActivePartProgram
Set RepWin = PartProg.ReportWindow
lngRetVal = RepWin.FullReportMode()
MsgBox "PC-DMIS returned " & lngRetVal & " for setting the Report window to Full Report mode."
RepWin.RefreshReport
End Sub