Сохранить отчет о доступе в формате PDF

Question

Использование макроса VBA, прикрепленного к кнопке «Сохранить файл» в форме. Хотелось бы две вещи: в диалоговом окне SaveAs я хотел бы, чтобы именем файла по умолчанию было «Inspections Due», а тип файла по умолчанию - PDF. Следующий код открывает диалоговое окно SaveAs без имени по умолчанию, а тип файла - .

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
If fd.Show Then

    DoCmd.OutputTo acOutputReport, "Inspections Due", acFormatPDF, 
fd.SelectedItems(1), True

End If

Пересмотренный код ниже:

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
    .InitialFileName = "Inspections Due"
    .Filters.Add "PDF", "*.PDF"
    .FilterIndex = 1
End With

If fd.Show Then
    DoCmd.OutputTo acOutputReport, "Inspections Due", acFormatPDF, 
fd.SelectedItems(1), True
End If

End Sub

Я пробовал разные значения индекса фильтра, в том числе 1,2,25, и получаю ту же ошибку.

Answer 1

В диалоговом окне SaveAs я хотел бы, чтобы имя файла по умолчанию было «Обследования должны»

Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.InitialFileName = "Name you need"