Question

使用附加到表单上“保存文件”按钮的VBA宏。需要两件事：在“另存为”对话框中，我希望默认文件名为“ Inspections Due”，默认文件类型为PDF。下面的代码打开“另存为”对话框，没有默认名称，文件类型为。

const addToMap = (map, e) => Object.assign({}, map, { [e]: (map[e] || 0) + 1 });
const buildMap = a => a.reduce(addToMap, {});

下面的修订代码：

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

我尝试过使用不同的过滤器索引值（包括1,2,25）并得到相同的错误。

Answer 1

在“另存为”对话框中，我希望默认文件名为 “应交检查”

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

将访问报告另存为PDF

1 个答案: