This is a migrated thread and some comments may be shown as answers.

Line up sub report to footer

1 Answer 21 Views
General Discussions
This is a migrated thread and some comments may be shown as answers.
Elliott
Top achievements
Rank 2
Elliott asked on 13 May 2013, 06:16 PM
I am wondering if it is possible to do the following:

I have 4 reports that have 3 totals at the bottom: Cases, Allowance and Dollars
I need to insert a sub report to the report footer to appear immediately under the grand total line that also uses Cases, Allowance and Dollars
I'd like to create one sub report, not 4
is it possible to move and / or resize the textboxes on the sub report to line up with the report being produced?

1 Answer, 1 is accepted

Sort by
0
Elliott
Top achievements
Rank 2
answered on 14 May 2013, 04:21 PM
well, I arrived at a solution

I set up WriteOnly properties in the subreport for Height,Width and Location
Partial Public Class MySubReport
    Inherits Telerik.Reporting.Report
#Region "Properties"   
  

   Public
WriteOnly Property OverlapDollars_Height As Telerik.Reporting.Drawing.Unit
        Set(value As Telerik.Reporting.Drawing.Unit)
            OverlapDollarsDataTextBox.Height = value
        End Set
    End Property
 
    Public WriteOnly Property OverlapDollars_Width As Telerik.Reporting.Drawing.Unit
        Set(value As Telerik.Reporting.Drawing.Unit)
            OverlapDollarsDataTextBox.Width = DirectCast(value, Telerik.Reporting.Drawing.Unit)
        End Set
    End Property
 
    Public WriteOnly Property OverlapDollars_Location As Telerik.Reporting.Drawing.PointU
        Set(value As Telerik.Reporting.Drawing.PointU)
            OverlapDollarsDataTextBox.Location = value
        End Set
    End Property
 
Public WriteOnly Property ActualDollars_Height As Telerik.Reporting.Drawing.Unit
        Set(value As Telerik.Reporting.Drawing.Unit)
            ActualDollarsDataTextBox.Height = value
        End Set
    End Property
 
    Public WriteOnly Property ActualDollars_Width As Telerik.Reporting.Drawing.Unit
        Set(value As Telerik.Reporting.Drawing.Unit)
            ActualDollarsDataTextBox.Width = DirectCast(value, Telerik.Reporting.Drawing.Unit)
        End Set
    End Property
 
    Public WriteOnly Property ActualDollars_Location As Telerik.Reporting.Drawing.PointU
        Set(value As Telerik.Reporting.Drawing.PointU)
            ActualDollarsDataTextBox.Location = value
        End Set
    End Property
etc

at the point that the DataSource for each report is set
        Dim rpt As New Reports.VrMainReport

           Dim
thisReport As InstanceReportSource = rpt.SRActualTotals.ReportSource
        Dim subRpt As MySubReport = thisReport.ReportDocument
        Dim x_Unit, Y_Unit As Telerik.Reporting.Drawing.Unit
        Dim APoint As Telerik.Reporting.Drawing.PointU
        subRpt.OverlapDollars_Width = rpt.netCostSumFunctionTextBox1.Width
        subRpt.OverlapDollars_Height = rpt.netCostSumFunctionTextBox1.Height
        subRpt.ActualDollars_Width = rpt.netCostSumFunctionTextBox1.Width
        subRpt.ActualDollars_Height = rpt.netCostSumFunctionTextBox1.Height
        x_Unit = rpt.netCostSumFunctionTextBox1.Location.X - rpt.subreportControl.Left
        Y_Unit = New Telerik.Reporting.Drawing.Unit(0)
        APoint = New Telerik.Reporting.Drawing.PointU(x_Unit, Y_Unit)
        subRpt.OverlapDollars_Location = APoint
        x_Unit = rpt.netCostSumFunctionTextBox1.Location.X - rpt.subreportControl.Left
        Y_Unit = rpt.netCostSumFunctionTextBox1.Height
        APoint = New Telerik.Reporting.Drawing.PointU(x_Unit, Y_Unit)
        subRpt.ActualDollars_Location = APoint
and so forth
same size, lines up
Tags
General Discussions
Asked by
Elliott
Top achievements
Rank 2
Answers by
Elliott
Top achievements
Rank 2
Share this question
or