将记录输出到PDF文件

Question

尝试仅将显示的记录保存为PDF文件。

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)

If fd.Show Then
    DoCmd.OutputTo acOutputForm, "MAF View for print", "PDF Format (*.pdf)", fd.SelectedItems(1), True
End If

这会打印到文件，但保存所有记录而不是仅保存显示的记录。

Answer 1

DoCmd.OutputTo没有过滤器选项，因此您需要事先过滤表单。

E.g。

Dim vBookmark As Variant
' Remember current record to navigate back to it
vBookmark = Me.Bookmark

DoCmd.ApplyFilter , "ID = " & Me!ID
DoCmd.OutputTo acOutputForm, ...
DoCmd.ShowAllRecords

Me.Bookmark = vBookmark

如果您要隐藏用户的过滤，请将其打包到Application.Echo False / Application.Echo True