Open a Multi-Template Report to Page 2

Kailash

I have added multiple pages to a report.
I have also added events that will modify the filter and sort of a databand
The only way that I have found to update the changes is to call Prepare() and ShowPrepared()
but then the report starts from the beginning and not the report-template that the user was on.
is there a way to open to that report template page?

       Private Sub ReSortColumn(ByVal sender As Object, ByVal e As EventArgs)
        Dim header As TextObject = CType(sender, TextObject)
        Dim DB As DataBand = Nothing
        Select Case header.Parent.Name
            Case "dhShipping"
                DB = CType(Me.FindObject("dbShipping"), DataBand)
        End Select

        Dim newSort As Sort = New Sort(String.Format("[{0}.{1}]", DB.DataSource.Name, header.Text), False)
        If DB.Sort.Item(0).Expression = newSort.Expression Then
            DB.Sort.Item(0).Descending = Not DB.Sort.Item(0).Descending
        Else
            For i As Integer = DB.Sort.Count - 1 To 1 Step -1
                DB.Sort(i) = DB.Sort(i - 1)
            Next
            DB.Sort(0) = newSort
        End If

        Me.Prepare()
        Me.ShowPrepared()
        ' OPEN TO THE PAGE THAT THE USER WAS ON
    End Sub