Диалог сохранения Файла (msoFileDialog)

Private Function ShowFileDialog(InitPath$) As String

Dim dlgOpen As Object

Dim iResult As Integer

On Error GoTo ShowFileDialog_Error

Set dlgOpen = Application.FileDialog(2) 'msoFileDialogSaveAs = 2

With dlgOpen

.Title = "Куда сохранять???"

.InitialFileName = InitPath

iResult = .Show

If iResult = -1 Then 'Был сделан выбор - Была отмена: 0

ShowFileDialog = .SelectedItems(1)

End If

End With

On Error GoTo 0

Exit Function

ShowFileDialog_Error:

ShowFileDialog = ""

'MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ShowFileDialog of VBA Document Form_INBOUND"

End Function

Пример эксплуотации:

Dim sFilePath$, sInit$

sInit = CurrentProject.Path 'Полный путь к папке аппликации (без слеша на конце)

sFilePath = ShowFileDialog(sInit & "\о_торг2_1234.pdf")

If sFilePath <> "" Then

DoCmd.OutputTo acOutputReport, "о_торг2_1234", "PDFFormat(*.pdf)", sFilePath, True, , , acExportQualityPrint

End If