close after print
 

I'm having a problem with my application. I have a page with a crystal report loaded into it that the user will have to print out. Well after the print from the crystal report they need to be directed to another page. how can I do that. here's the code...

Imports System.Data.SqlClient

Public Class PD
    Inherits System.Web.UI.Page
    Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer
    Protected WithEvents PublicDisplay As FireworksPermitApp.PD

#Region " Web Form Designer Generated Code "

      Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Dim strTransactionNumber As String
    Dim DBConn As SqlConnection
    Dim MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocum ent


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        Response.Write("<script language=javascript>alert(""Please print application for your records!"");</script>")

        Try
            strTransactionNumber = Session("TransactionNumber")
            SpWithViewer(strTransactionNumber)
            CrystalReportViewer1.DataBind()

        Catch ex As Exception

        End Try




    End Sub

    Private Sub SpWithViewer(ByVal spParameter As String)
        Dim ParameterFields As CrystalDecisions.Shared.ParameterFields
        Dim ParameterField As CrystalDecisions.Shared.ParameterField
        Dim spValue As CrystalDecisions.Shared.ParameterDiscreteValue
        ParameterFields = New CrystalDecisions.Shared.ParameterFields
        ParameterField = New CrystalDecisions.Shared.ParameterField
        ParameterField.ParameterFieldName = "@vchTransactionNumber"
        spValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        spValue.Value = (spParameter)
        ParameterField.CurrentValues.Add(spValue)
        ParameterFields.Add(ParameterField)
        CrystalReportViewer1.ParameterFieldInfo = ParameterFields
        CrystalReportViewer1.ReportSource = PublicDisplay
    End Sub


End Class