No te saldrá exactamente igual, pero la forma de exportar es la siguiente:
Private Sub Command1_Click()
'Declaramos la variable
Dim exprt As craxdrt.ExportOptions
'Se la asignamos al report
Set exprt = Report.ExportOptions
'Le indicamos que queremos un fichero de disco
exprt.DestinationType = crEDTDiskFile
'Nombre del fichero
exprt.DiskFileName = "c:pp.doc"
'Formato del documento, aquí le decimos que a Word
exprt.FormatType = crEFTWordForWindows
'Le indicamos que exporte el informe sin mostrarlo
Report.export (False)
End Sub
