[Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

Olá

Gostaria de saber se tem como ao clicar no icone PDF na faixa de opções ir diretamente para uma pasta especifica sem passar pelo assistente. Toda vez tem que indicar o caminho onde quero salvar o arquivo


Grato

Você já tentou por mais um botão nesta faixa com a opção on action e no código colocar o caminho especifico da pasta.

Olá

Não.

será que poderia me ajudar, sou meio devagar

ver anexo

Este código é para um único relatório, caso queira salvar outros relatórios nesta pasta o código precisa ser alterado.
mas já é um começo.

achei meio complexo o codigo, sei que para muitos este codigo é balela, mas para eu...

Achei um codigo do colega Gilberlandio Rocha que esta perfeito para mim, so que esta dando um erro e eu não consigo enxergar o que é

"erro em tempo de execução 424" - Objeto e obrigatorio

Dim strArquivo As String
Dim strLocal As String
  strArquivo = "" & NomeRecibo & "-" & "Id" & Me.NumPac & ".pdf"
  strLocal = CurrenteProject.Path & "\enviados\" & strArquivo
  DoCmd.OutputTo acOutputReport, "RelRecibo", acFormatPDF, strLocal

Este código você vai por no botão da rribon? Coloca seu banco de dados ai fica mais fácil.

O código será inserirdo em um botão no formulário FRMRECIBO.

A intenção é abrir a pasta ENVIADOS  e salvar o RELRECIBO do registro corrente em questão como PDF dentro dela

A pasta ENVIADOS encontra-se no na mesma pasta do banco

Caso somente estas informações não seja suficiente, darei um jeito de postar parte do projeto.

Grato

tente

strArquivo = "" & me.NomeRecibo & "-" & "Id" & Me!NumPac & ".pdf"


se não conseguir, adivinha

Resolvido com o código abaixo, agora o unica coisa é que ele  não testa se já ha um arquivo com este nome, dai sobrepõe.
Precisaria de uma condição, caso já tenha um arquivo PDF com este nome, o sistema de opção de gravar com outro nome, já que no decorrer do ano um paciente pode consultar mais de uma vez e solicitar o recibo. Tendo isso quando for prestar conta com Imposto de Renda, ficaria mais fácil
fora isso, o código funciona beleza.

'(creditos: Gilberlandio Rocha)

Private Sub btSalvarPDF_Click()
Dim strArquivo As String
Dim strLocal As String

' nome do arquivo a ser salvo      chave prima
strArquivo = "" & Me!NomeRecibo & "-" & "Id" & Me.NumPac & ".pdf" 'Nome do arquivo a ser salvo baseado em campos do formulário. (me!nosso pedido / Me!cliente/ me.Forneoculta )

strLocal = CurrentProject.Path & "\Enviados\" & strArquivo ' criar essa pasta ( Pedidos )onde está o banco de dados

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "RelRecibo", acViewPreview, , "NumPac=" & Me!NumPac
'                   nome do relatorio                     chave prima       chave prima

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "Relrecibo", acFormatPDF, strLocal

'Fecha o relatório
DoCmd.Close acReport, "RelRecibo"
End Sub

Adapta ai

Dim strArquivo As String
Dim strLocal As String
Dim OldName, NewName As String

strArquivo = "" & Me.cboClientes.Column(1) & "-" & "Id" & Me!nProposta & ".pdf"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo

If Dir(strLocal) = vbNullString Then ' verifica e existencia do arquivo
'MsgBox ("Não encontrado")
Else

If MsgBox("Já existe um arquivo com o mesmo nome no diretório que você indicou." & _
" Se você prosseguir o arquivo será renomeado!!!" & Chr(10) & _
Chr(10) & "Deseja prosseguir?", vbQuestion + vbYesNo, "Arquivo Existente...") = vbYes Then

OldName = strLocal: NewName = strLocal & "_" & Day(Date) & Month(Date) & Year(Date) & ".pdf" ' Definir nomes de arquivos.

Name OldName As NewName ' Renomear arquivo.


End If
End If

O interessante seria ao invés de renomear o arquivo com a data atual, o sistema sempre pegasse a data do recibo DATARECIBO e adicionasse ao nome do arquivo 
Exemplo: MARIA DA SILVA SOUZA_25092019 (Nunca haverá um recibo de uma mesma pessoa com a mesma data) assim ficaria diferenciado
'OldName = strLocal: NewName = strLocal & "_" & Day(Date) & Month(Date) & Year(Date) & ".pdf" ' Definir nomes de arquivos.


Dim strArquivo As String
Dim strLocal As String
Dim OldName, NewName As String

' nome do arquivo a ser salvo      chave prima
strArquivo = "" & Me!NomeRecibo & "-" & Me!NumPac & "-" & ".pdf"   'Nome do arquivo a ser salvo baseado em campos do formulário. (me!nosso pedido / Me!cliente/ me.Forneoculta )

strLocal = CurrentProject.Path & "\Enviados\" & strArquivo ' criar essa pasta ( Pedidos )onde está o banco de dados

If Dir(strLocal) = vbNullString Then ' verifica e existencia do arquivo
MsgBox ("Não encontrado")
Else

If MsgBox("Já existe um arquivo com o mesmo nome no diretório que você indicou." & _
" Se você prosseguir o arquivo será renomeado!!!" & Chr(10) & _
Chr(10) & "Deseja prosseguir?", vbQuestion + vbYesNo, "Arquivo Existente...") = vbYes Then

OldName = strLocal: NewName = strLocal & "_" & Day(Date) & Month(Date) & Year(Date) & ".pdf" ' Definir nomes de arquivos.


Name OldName As NewName ' Renomear arquivo.
End If
End If

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "RelRecibo", acViewPreview, , "NumPac=" & Me!NumPac
'                   nome do relatorio                     chave prima       chave prima

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "Relrecibo", acFormatPDF, strLocal

'Fecha o relatório
DoCmd.Close acReport, "RelRecibo"

modifique a linha por esta


OldName = strLocal: NewName = strLocal & "_" & Day(Me.DataRecibo) & Month(Me.DataRecibo) & Year(Me.DataRecibo) & ".pdf" ' Definir nomes de arquivos.

Valew pela ajuda. 

Ficou Perfeito agora

Grato

Valeu pelo retorno