从具有数据名称的访问报告中导出为 pdf

Question

我想从 Access 报告导出为 pdf，其名称由报告中的数据控制。

我创建了下面的代码，但它只是将文件保存为_.pdf，而不是我想要的值。

我在破坏这个时打开了报告。看起来报告中的数据似乎没有通过代码传递，但我不确定这是如何正确以及是否正确。

有人可以用尽可能简单的英语帮助我吗？ 非常感谢

Sub outputpdf()

    Dim myPath As String
    Dim strReportName As String
    Dim stritem As String
    Dim strcont As String
    Dim strid As String
    Dim struniq As String

    DoCmd.OpenReport "outputreport", acViewPreview

    myPath = "D:\simon\test\"

    strReportName = stritem + strcont + ".pdf"
    'strReportName = Item + contract_number + "_"+ ".pdf"

    DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath & strReportName, False

    DoCmd.Close acReport, "outputreport"

End Sub

Answer 1

Access 和 VBA 连接使用 & 运算符，而不是像 C 语言那样使用 +。

strReportName = stritem + strcont + ".pdf"

到

strReportName = strItem & strcont & ".pdf"

我认为你在底部有它...

编辑：

构建它

Sub ObjectBuilder()
Dim item As String, cont As String

item = InputBox("Enter Item", "Item", "12345")
cont = InputBox("Enter Container?", "Container", "Shipping Crate")

OutputPdf item, cont

End Sub

那就用吧

Sub OutputPdf(item As String, cont As String)
'your code
 strItem = item
 strCont = cont
End Sub