[Resolvido]Ajuda para adaptar código ExportaSnapshot

Boa tarde.

peguei esse código para exportar relatório para SnapShot e estou tentando direcionar o salvamento do arquivo ".snp" mas não estou conseguindo.

////Exportar Relatorio em SnapshotFormat no Ms Access

Num modulo novo cole e salve:

Public Function ExportaSnapshot()
Dim strNomeRelatorio As String
Dim TituloRelatorio As String
Dim NomeRelatorio As Report
Set NomeRelatorio = Screen.ActiveReport
strNomeRelatorio = NomeRelatorio.Name
TituloRelatorio = NomeRelatorio.Caption
DoCmd.SetWarnings False
DoCmd.OutputTo acReport, strNomeRelatorio, "SnapshotFormat(*.snp)", TituloRelatorio & ".snp", False, ""
DoCmd.SetWarnings True
MsgBox "Exportação concluída..."
End Function

No evento ao pressionar do seu botão exportar no form:

Private Sub SeuBotaoExportar_Click()
Dim stDocName As String
stDocName = "NomeDoSeuRelatorio"
DoCmd.OpenReport stDocName, acPreview
Call ExportaSnapshot
End Sub ////


gostaria de salvar por exemplo em D:\MeuSnap\NomedoRelatório 23Maio2012.snp
Unidade+pasta+Nomedoarquivo+datadosalvamento.snp

alguem poderia me ajudar.

agradeço

Ok. Solução encontrada.

Obrigado.