Ihr habt ein PDF mit Datenfeldern, die ihr gerne mit Inhalten aus einer Datenbank befüllen würdet? Dann schaut euch diesen work-around an. Das Leben kann manchmal auch einfach sein ;-).
Hier noch die kleine Prozedur zum Speichern der einzelnen PDF:
Private Sub cmd_Drucken_Click()
Dim r As Recordset: Set r = CurrentDb.OpenRecordset("SELECT * from Kontakt", dbOpenDynaset, dbSeeChanges)
Dim Dateiname, Pfad As String: Pfad = "C:\Daten\Texte\"
'Me.Application.FollowHyperlink Pfad

With r
While .EOF = False
Dateiname = !id & " - " & !nachname & ".pdf"
DoCmd.OpenReport "repKindergeldantrag1", acViewPreview, , "[ID] =" & !id
DoCmd.OutputTo acOutputReport, "repKindergeldantrag1", acFormatPDF, Pfad & Dateiname
DoCmd.Close acReport, "repKindergeldantrag1"
.MoveNext
Wend
End With

End Sub