Report paper orientation changed through an extender rule

Namespace OneStream.BusinessRule.CubeViewExtender.CUSTOMER_PageOrientation
	Public Class MainClass
		Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As CVExtenderArgs) As Object
			Try
				Select Case args.FunctionType
					Case Is = CVExtenderFunctionType.GetReportOptions

                    	Dim cvER As CVExtenderReport = args.Report.CurrentUIItem.Report
						Dim uiItem As CVExtenderReportUIItem = args.Report.CurrentUIItem
						
						If uiItem.UIItemType = XFReportUIItemType.PageFooterPageNumber Then
							uiitem.SetPageNumberDisplayInfo (True,"Page {0} of {1}")
						End If	

						' --- Option 1: Using native DevExpress report classes , but requires Referenced Assembly to correct version of DevExpress.XtraReports.<version>.dll
						' Dim xtraReport As DevExpress.XtraReports.UI.XtraReport = cver.XRReport
						' xtraReport.Landscape = True
						' --- Option 2: Using System.Reflection to query the DevExpress class through generic objects. Slower to execute, but doesn't require hard-configured Referenced Assembly to the exact server path + version of DevExpress

                       Dim cvERProperty As System.Reflection.PropertyInfo = cvER.GetType().GetProperty("XRReport")
					   Dim currScenario As String = ScenarioDimHelper.GetNameFromID(si, si.WorkflowClusterPk.ScenarioKey)

                       If cvERProperty IsNot Nothing Then
						   If CurrScenario.XFContainsIgnoreCase("01") Or CurrScenario.XFContainsIgnoreCase("04") Or CurrScenario.XFContainsIgnoreCase("07") Or CurrScenario.XFContainsIgnoreCase("10") Then    
'				            Return "IsColumnVisible = True,Bold=True"
							Dim xtraReport As Object = cvERProperty.GetValue(cvER)
                            xtraReport.Landscape = True
						Else 
							Dim xtraReport As Object = cvERProperty.GetValue(cvER)
                            xtraReport.Landscape = False
						End If
                       End If

                   End Select

'                     XFBR(CUSTOMER_XFBRStrings, QTRFcst, CurrScenario = |WFScenario|)

'                       Dim CurrScenario As String = args.NameValuePairs.XFGetValue("CurrScenario")
					   
'                       If CurrScenario.XFContainsIgnoreCase("01") Or CurrScenario.XFContainsIgnoreCase("04") Or CurrScenario.XFContainsIgnoreCase("07") Or CurrScenario.XFContainsIgnoreCase("10") Then    
'				            Return "IsColumnVisible = True,Bold=True"
'		                   'qtr end is extra columns and landscape
'                       Else     
'                           Return "IsColumnVisible = False,Bold=False"
'                           'non qtr end are less columns and potrait
'                       End If  
				Return Nothing
		Catch ex As Exception
			Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
        End Try
        End Function
	End Class
End Namespace