Crystal Report - Exportar desde Crystal

Hola Amigos/as del foro, mi consulta es la siguiente: estoy trabajando con VB6.0 y Crystal 8 en castellano. Quiero exportar desde Crystal unas planillas de distintos clientes y guardarlas en una carpeta, pero el archivo que se produce tiene siempre el mismo nombre. Podria cambiar el nombre uno por uno desde la ventana de exportación de Crystal, pero lo mejor sería hacerlo directamente desde Visual Basic por código, por ejemplo, apretando un botón. ¿hay alguna manera de hacer esto? espero haberme explicado bien.
Desde ya muchas gracias.

hola yo programe un boton para exportar a formatos ya sea pdf, word o excel que al momento de exportar me sale el dialogo de donde quiero guardar y que nombre le pongo espero que te sirva

aqui te indico como mas o menos va

SALUDOS
Danny

Private nombreReporte As String = "ListaAuditorias" `nombre del reporte al exportar
Dim Rel As New Lista ' llamo al rpt

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

.' elcodogo para que se cargue le reporte
'Introducir aquí el código de usuario para inicializar la página
Dim Conexion As SqlConnection
Dim DACanal As SqlDataAdapter
Dim DSDatos As New DataSet
Dim Con As New Conexiones
Dim ds1 As New DataSet1

Conexion = Con.ConectarBDD("Auditor", Session("Clave"))
' cargando el adapter con la instruccion sql
DACanal = New SqlDataAdapter("select * from tabla", Conexion)
' cargando el dataset
DSDatos = New DataSet1
DACanal.Fill(DSDatos, "misdatos")

'Asocia el conjunto de datos con el reporte
For Each dr As DataRow In DSDatos.Tables("misdatos").Rows
ds1.VListaAuditorias.ImportRow(dr)
Next

Rel.SetDataSource(ds1)

CrystalReportViewer1.ReportSource = Rel

end sub

Private Sub btnpdf_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnpdf.Click
Dim outStream As New System.IO.MemoryStream
outStream = Rel.ExportToStream(ExportFormatType.PortableDocFormat)
Response.Clear()
Response.Buffer = True

'Le indicamos el tipo de documento que vamos a exportar
Response.ContentType = "applicatio/msword"

'Automaticamente se descarga el archivo
Response.AddHeader("Content-Disposition", "attachment;filename=" + Me.nombreReporte + ".pdf")

'Se escribe el archivo
Response.BinaryWrite(outStream.ToArray())
Response.End()


' 'Catch err As Exception
' ' MessageBox.Show(err.ToString())
' 'End Try

End Sub