Convertir Crystal a PDF con parametros

[roger1187]

Hola gente tengo una duda con el CrystalReport que lo trabajo con Visual Studio 2008 y Mysql.

'Cargar Valores
Dim emp As String = Session("empresa")
Dim año As String = Session("año")
Dim coti As String = Session("coti")
Dim actividad As String = Session("actividad")
Dim sistema As String = Session("sistema")
Dim usuario As String = Session("usuario")

'Cargar GRIDVIEW
GridView1.Visible = True
GridView1.DataSource = ClaseCoti.CargaRelaConsultaCotiProv(emp, año, coti)
GridView1.DataBind()
'Cargar Formulas
Me.CrystalReportViewer1.SelectionFormula = "{com_sp_rpt_cotizacion_contacto_articulo.c.co d_em presa} = '" & emp & "' AND {com_sp_rpt_cotizacion_contacto_articulo.c.cod_anh o} = '" & año & "' AND {com_sp_rpt_cotizacion_contacto_articulo.c.num_cot izacion} = '" & coti & "'"
Me.CrystalReportViewer1.RefreshReport()

'Cargar RPT
Dim rpt As New ReportDocument
rpt.Load(Server.MapPath("COM_Cotizacion_Registro.r pt"))

'Cargar Conexion
Dim myConnectionInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
myConnectionInfo.ServerName = "localhost"
myConnectionInfo.DatabaseName = "sait_database"
myConnectionInfo.UserID = "root"
myConnectionInfo.Password = "1q2w3e$"
SetDBLogonForReport(myConnectionInfo)

'Cargar Nombre y Generar PDF
Dim nomarchivo As String = "Cotizacion_" & Date.Now.Year & Date.Now.Month & Date.Now.Day & Date.Now.Hour & Date.Now.Minute & Date.Now.Second & "_" & coti & ".pdf"
ExportToPDF(rpt, nomarchivo)

'Envio de Correo
For i = 0 To GridView1.Rows.Count - 1
Dim row As GridViewRow = GridView1.Rows(i)
Dim file As String = "C:\inetpub\wwwroot\sait_envio_correo\" & nomarchivo
Dim Correo As String = row.Cells(4).Text
ClaseCoti.EnvioCorreo(file, Correo)
Next

'Devolver las variables
Session("empresa") = emp
Session("usuario") = usuario
Session("sistema") = sistema
Session("actividad") = actividad
Response.Redirect("CM_Menu_Cotizacion.aspx")

Como veran los parametros los creo desde el mismo visual como
Me.CrystalReportViewer1.SelectionFormula
y ahi no me da problema alguno, pero como ven luego genero un reportdocument de esa mismo reporte
rpt.Load(Server.MapPath("COM_Cotizacion_Registro.r pt"))

pero se pierde la formula que hice en el crystalreportviewer ... quisiera saber si hay una forma de que ese reportdocument se genere en funcion al o que se genero en el CrystalReportViewer1.SelectionFormula??