[Resolvido]Exportar relatório em PDF - Access 2003

Olá,

Gostaria de saber se há alguma forma de exportar o relatório em PDF pelo VBA no access 2003.

Procurei em diversos lugares porém não consegui localizar.

Ola amigo
Nao sou programador mas tenho aprendido muita coisa aqui
Em anexo segue um banco de dados simples que fiz pra vc da maneira que eu faco isso
Resumindo
Eu pego relatorio , gravo uma exportacao salva e o banco salva no diretorio C:\Users\Samsung\Documents
Veja bem fiz um pequeno exemplo pra trazer alguma luz pra vc , mas com certeza existem codigos em VBA bem melhores que o que faço

Ola Lucianosilva43

Gostou da ideia que te passei
Da um retorno
Grande abraco

Então Luciano, depende muito de suas intenções, eu, particularmente, trabalho com dois códigos em relatórios distintos:

Aqui, eu visualizo o relatório e, decido onde salvar:

Código:

Private Function fncAbrir()

 Dim stDocName As String
 Dim accobj As AccessObject
 
 On Error GoTo Err_fncabrir

 stDocName = "Seu Relatório"
  
        
 'This function closes the report if the report is open and then re-opens the report.
  Set accobj = Application.CurrentProject.AllReports.Item(stDocName)
  If accobj.IsLoaded Then
    If accobj.CurrentView = acCurViewPreview Then
        DoCmd.Close acReport, stDocName
        DoCmd.OpenReport stDocName, acPreview
    End If
  Else
          DoCmd.OpenReport stDocName, acPreview
  End If

DoCmd.OutputTo objectType:=acOutputReport, ObjectName:="Seu Relatório", OutputFormat:="pdf"

Exit_fncabrir:
   Exit Function

Err_fncabrir:
   MsgBox Err.Description
   Resume Exit_fncabrir

End Function



Aqui, eu não visualizo (a tela piscará com se fosse algum erro) mas o arquivo será salvo em uma pasta pré-determinada:

Código:

Private Function fncExp()
DoCmd.OutputTo acOutputReport, "Seu Relatório", acFormatXLS, "endereço da pasta onde será salvo", False

End Function

E entao parceiro

Me perdoe a resposta apos muito tempo . Utilizo o access nos horarios vagos para desenvolver . Deu certo obrigado

Estando tudo ok, não esqueça de marcar o tópico como resolvido.