Hola a todos.
Cuando creo un informe (.dsr) y o bien lo guardo en disco o lo envío por correo, le asigna el nombre por defecto de: "Sin titulo".

¿Como puedo cambiar el nombre de "Sin titulo" a otro? (lo digo por el que envío por correo, ya que el que se guarda en disco, como es lógido si se puede cambiar a la hora de guardarlo)

Saludos cordiales.

usa:

Name Nombre_De_Archivo, Nuevo_Nombre_De_Archivo

Gracias in training, por responder.

¿Me podrías poner un pequeño ejemplo, para ver donde poner el código que dices use?

Saludos cordiales.

No creo que sea necesario un ejemplo, despues de que se le asigne el valor por defecto, osea cuando el archivo ya esta en el disco guardado, la funcion "Name" sirve para cambiarle de nombre

Gracias in training nuevamente por responer.
Perdona mi ignorancia, pero no se como y donde poner tu instrucción en el siguiente código.

Lo que hace el siguiente código es como seguramente sabrás;
Primero exporto el informe a formato .pdf con el nombre de "Pedido.pdf" grabandolo en el directorio donde me encuentro.
A continuación exporto por e-mail, pero como dije le asigna el nombre "Sin titulo" por defecto y lo que quisiera es que cogiera el nombre del archivo .pdf que he grabado en disco o cualquier otra forma, pero que le pudiera dar yo el nombre del fichero a adjuntar al e-mail.

Dim cRespuesta As String
cRespuesta = MsgBox("¿ Previsualizar ?.", vbYesNo +
     vbQuestion + vbDefaultButton1)
If cRespuesta = vbYes Then

Screen.MousePointer = vbHourglass
   
mflgContinuar = True
   
With crReport
   .Database.SetDataSource rsLineasPedido
   .PaperOrientation = 1
   .PaperSize = 0
End With

With CRViewer1
   .ReportSource = crReport
   .ViewReport
   .Zoom (96)
End With
   
Screen.MousePointer = vbDefault
   
ElseIf cRespuesta = vbNo Then
   With crReport
      .Database.SetDataSource rsLineasPedido
      .PrintOut False
      .ExportOptions.DestinationType = crEDTDiskFile
      .ExportOptions.FormatType = crEFTPortableDocFormat
      .ExportOptions.DiskFileName = App.Path & "/Pedido.pdf"
      .Export False
         
      .ExportOptions.DestinationType = crEDTEMailMAPI
      .FieldMappingType = crAutoFieldMapping
      .ExportOptions.PDFExportAllPages = True
      .ExportOptions.MailToList = "[email protected]"
      .ExportOptions.MailSubject = "Prueba"
      .ExportOptions.MailMessage = "Esto es una prueba"
      .DisplayProgressDialog = False
      .EnableParameterPrompting = False
      .Export False
         
   End With
End If

Saludos cordiales.