为当前记录创建PDF按钮

Question

Private Sub CreatePDF_Click()
Dim FileName As String
Dim FilePatch As String
FileName = "Geleidelijst" & Me.OrderNrCopy
Filepath = "C:UsersADesktopTest" & FileName & ".pdf"
Forms("GeleidelijstForm").Filter = "[InvoerOrderNr]='" & Me![OrderNrCopy] & "'"
Forms("GeleidelijstForm").FilterOn = True
DoCmd.OutputTo acOutputForm, "GeleidelijstForm", acFormatPDF, Filepath
End Sub

它似乎创建了一个所有记录的PDF，我只想为当前记录创建它，但它不起作用。

如果可能的话，如果文件已经存在，可以通过在后面添加一个数字或其他东西来创建一个不同的名称，但这是不必要的。

谢谢你的帮助。

Answer 1

适用于任何需要代码从当前记录创建PDF文件的人。

必须更改整个代码，它将保存当前表单，以便报告显示准确的信息，并在之后刷新，并询问您希望将PDF文件安全保存在哪里。之后，它将关闭打印预览。

将FormName、NameOfColumnInTable和Name:OfMatchingTextboxOnForum替换为您自己的名称。

Private Sub CreatePDF_Click()
DoCmd.Save acForm, "FormName"
Me.Refresh
DoCmd.OpenReport "FormName", acViewPreview, , "NameOfColumnInTable = '" & Me.NameOfMatchingTextboxOnForum & "'"
DoCmd.OutputTo acOutputReport, "ReportName", acFormatPDF, File, False, , , _
acExportQualityPrint
DoCmd.Close
End Sub