[kapetang]

Καλημέρα
Τίμο, δοκίμασε τον κώδικα:

Public Function PicFolder() As String
    Dim blnSelect As Boolean
    Dim fld As Object

    Set fld = Application.FileDialog(4)
    fld.AllowMultiSelect = False
    blnSelect = fld.Show
    If blnSelect Then
        PicFolder = fld.SelectedItems(1)
    End If
End Function

Private Sub Εντολή482_Click()
    Dim strFolder As String
    strFolder = PicFolder
    If strFolder <> "" Then
        DoCmd.OutputTo acOutputReport, "RptΔελτία παραγγελίας", acFormatPDF, strFolder & "\ΔΠ." & _
            CStr(ΚωδΔελτίουπαραγγελίας) & "_κ.κ.." & CStr(Κείμενο218) & "_" & Format((Κείμενο194), "yyyymmdd") & ".pdf", True
    Else
        MsgBox "Δεν επιλέξατε φάκελο"
    End If
End Sub

Φιλικά/Γιώργος