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

Sub ExportToPDF()
    Dim rs As Recordset
    Dim pdfText As String
    
    ' 假设rs是你的记录集对象，可以根据实际情况进行修改
    Set rs = YourRecordset
    
    ' 遍历记录集，将每个记录添加到pdfText字符串中
    Do Until rs.EOF
        pdfText = pdfText & rs.Fields("FieldName") & vbCrLf
        rs.MoveNext
    Loop
    
    ' 将pdfText字符串导出为PDF文档
    ExportPDF pdfText
End Sub

Sub ExportPDF(pdfText As String)
    Dim pdfApp As Object
    Dim pdfDoc As Object
    
    ' 创建PDF应用程序对象
    Set pdfApp = CreateObject("AcroExch.App")
    
    ' 创建PDF文档对象
    Set pdfDoc = CreateObject("AcroExch.PDDoc")
    
    ' 打开PDF文档
    pdfDoc.Open
    
    ' 在PDF文档中创建新的页面
    pdfDoc.InsertPages pdfDoc.GetNumPages - 1, pdfDoc.GetNumPages - 1, 1, 1, False
    
    ' 获取新页面的文本字段对象
    Dim pdfField As Object
    Set pdfField = pdfDoc.GetPage(pdfDoc.GetNumPages - 1).GetField("multiLine")
    
    ' 将pdfText字符串写入文本字段
    pdfField.Value = pdfText
    
    ' 保存PDF文档
    pdfDoc.Save 1, "保存路径及文件名.pdf"
    
    ' 关闭PDF文档
    pdfDoc.Close
    
    ' 退出PDF应用程序
    pdfApp.Exit
End Sub