[Resolvido]PDF em pasta local

oi pessoal gostaria de ter a vossa ajuda, utilizo este código para criar PDF mas esta a guardar no mesmo local/ directoria onde esta a bd... mas pretendia guardar numa pasta local c:\EncomendasPDF

Código:

Private Sub PDF_frmCadNotaEncomenda_Click()
DoCmd.OutputTo acOutputReport, "relGuiaEncomenda", "PDFFormat(*.pdf)", CurrentProject.Path & "\Guia_de_EncomendaPDF" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
End Sub

Obrigado e abraço

Use a propriedade Application.FileDialog para abrir uma janela para você selecionar a pasta que deseja salvar:

Código:

Private Sub PDF_frmCadNotaEncomenda_Click()
Dim fDialog As Office.FileDialog
Dim fPasta As String

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)

With fDialog
    If .Show = -1 Then
        fPasta = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With

DoCmd.OutputTo acOutputReport, "relGuiaEncomenda", "PDFFormat(*.pdf)", fPasta & "\Guia_de_EncomendaPDF" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
End Sub

Ou simplesmente substitua:

CurrentProject.Path & "\Guia_de_EncomendaPDF"

por

"C:\EncomendasPDF\Guia_de_EncomendaPDF"

Oi amigo. Obrigado pela resposta e ajuda irei testar e deixo logo logo. Abraço

Oi amigo, ficou resolvido. Levou algum tempo pois estava a terminar o form final. Obrigadão

Código:

Private Sub PDF_frmCadNotaEncomenda_Click()
DoCmd.OutputTo acOutputReport, "relGuiaEncomenda", "PDFFormat(*.pdf)", "C:\EncomendasPDF\Guia_de_EncomendaPDF"" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen
End Sub

Abraço até a próxima.