使用VBA将每个记录集发送到multiLine PDF文本框中的新行

Question

我正在尝试将每个记录集发送到PDF文本框中的新行。我正在使用Access 2016，我为我的vba设置了参考集。做这件事最好的方法是什么？它进入一个记录集，仅此而已。我在pdf中将文本框的属性设置为多行。下面是我用来遍历记录集的代码。

Dim rs1 As Recordset
Dim SQL1 As String
Dim AcroApp As Acrobat.CAcroApp
Dim PDoc, PDocFil As Acrobat.CAcroPDDoc
Dim PDFSaved As Variant
Dim jso As Object
Dim Fld13 As Object
Dim Output

Set Fld13 = jso.getField("ListofLOAs")
SQL1 = "SELECT tbl_Delegation_Tracker.SignerEmail, tbl_Delegation_LOA_Tracker.LOAFUNDCENTER, tbl_Delegation_LOA_Tracker.LOAFUND, tbl_Delegation_LOA_Tracker.LOAPM, " _
    & "tbl_Delegation_LOA_Tracker.LOATDC, tbl_Delegation_LOA_Tracker.LOASAG, tbl_Delegation_LOA_Tracker.LOAMDEP, tbl_Delegation_LOA_Tracker.LOAMDEPTITLE " _
    & "FROM tbl_Delegation_Tracker INNER JOIN tbl_Delegation_LOA_Tracker ON tbl_Delegation_Tracker.[SignerEmail] = tbl_Delegation_LOA_Tracker.[SIGNEREMAIL] " _
    & "WHERE ((tbl_Delegation_Tracker.SignerEmail) = '" & Forms!Frm_Delegation.Form!SignerEmail & "') "
Set rs1 = CurrentDb.OpenRecordset(SQL1)

If rs1.RecordCount > 0 Then
    rs1.MoveFirst
        Do Until rs1.EOF
            Output = rs1!LOAFUNDCENTER & " " & rs1!LOAFUND & " " & rs1!LOAPM & " " & rs1!LOATDC & " " & rs1!LOASAG & " " & rs1!LOAMDEP & " " & rs1!LOAMDEPTITLE
            Fld13.Value = Output & vbNewLine
        rs1.MoveNext
        Loop
End If

我发现了一些关于adobe中新行选项的"\r"和"\n"的东西。我只是不确定如何在vba中编写它。任何帮助都是非常感谢的。此外，vbCrLf也不能工作。

Answer 1

使用Nathan_Sav注释，我在循环中输入了Output = Output & vbCrLf & rs1......，这可以很好地工作。谢谢Nathan_Sav