Report Title removal ( using report wizard)

[munishsethi]

I am trying to create a report using Report Wizard. I hav placed master report into it. I dont need report title band to be placed on top. I want to remove it.
Kindly suggest.

Code i m using to create report is as followes.

Code: Select all

 Private Sub SetReportWizard()
        Dim masterReport As New StiReport
        Dim a As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString
        masterReport.Load(a & "Master.mrt")

        Dim report As StiReport = PopulateReportWizardDesign()
        report.MasterReport = masterReport.SaveToString()

        Dim reportLayout As String = report.SaveToString
        _reportLayout.RLALayout = reportLayout
        report.Design()
    End Sub

    Private Function PopulateReportWizardDesign() As StiReport
        Dim report As New StiReport
        Dim rptNew As StiReport
        Dim outputFieldSet As OutputFieldSet = OutPutFieldSetDataStore.getInstance.find(_reportLayout.RLAOFSID)
        Dim dataSet As DataSet = ReportExecuter.ExtractSchema(outputFieldSet)
        Dim reportOptions As String = Nothing
        If Not outputFieldSet Is Nothing Then
            If Not outputFieldSet.OFSFields Is Nothing And outputFieldSet.OFSFields.Count > 0 Then
                report.RegData("Data", dataSet)
                report.Dictionary.Synchronize()

                rptNew = New Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService().CreateReport(report)

                For Each dataSource As StiDataSource In report.Dictionary.DataSources
                    Dim tableName As String = dataSource.DataTable.TableName
                    Dim dt As DataTable = dataSet.Tables(tableName)
                    dataSource.Alias = dt.ExtendedProperties("DisplayName").ToString
                Next

                For Each dataRelation As StiDataRelation In report.Dictionary.Relations
                    Dim dataSource As StiDataSource = dataRelation.ParentSource
                    Dim tableName As String = dataSource.DataTable.TableName
                    Dim dt As DataTable = dataSet.Tables(tableName)
                    dataRelation.Alias = dt.ExtendedProperties("DisplayName").ToString
                Next
                If (Not _reportLayout.RLALayout Is Nothing) Then
                    If (_reportLayout.RLALayout.Trim.Length > 0) Then
                        report.LoadFromString(_reportLayout.RLALayout)
                    End If
                End If
                If _reportLayout.ReportOptions IsNot Nothing Then
                    For Each RepOption As ReportOption In _reportLayout.ReportOptions
                        Dim optionName As String = RepOption.REOName
                        optionName = optionName.Replace(":", "")
                         If (Not report.Dictionary.Variables.Contains(optionName)) Then
                            Dim variable As StiVariable = New Stimulsoft.Report.Dictionary.StiVariable("ReportOptions", optionName, RepOption.DataType)
                            report.Dictionary.Variables.Add(variable)
                        End If
                    Next
                End If
            End If
        End If
        Return rptNew
    End Function

[Edward]

Please modify your code as following:

Code: Select all

                rptNew = New Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService().CreateReport(report)
                Dim comp As Stimulsoft.Report.Components.StiComponent = rptNew.GetComponents.Item("ReportTitleText")
                comp.Parent.Components.Remove(comp)
                comp = rptNew.GetComponents.Item("ReportTitle")
                comp.Parent.Components.Remove(comp)

After creating of the ReporTtitleBand (named "ReportTitle") and StiText component on it with name "ReportTitleText", they will be deleted.

Thank you.