Daten in ein PDF-Formular übergeben

24/07/2008 - 14:56 von Gerhard Schuster | Report spam
Hallo,
ich habe ein PDF-Dokument wo ich mit Acrobat formularfelder eingefügt
habe, bin inzwischen soweit das ich das PDF-Formular in Access 2002
aufrufen und manuell bearbeiten kann. Jetzt bràuchte ich eine
Möglichkeit wie ich in die vorhandenen Formularfelder Name, Geb.-
Datum, Arbeitgeber usw. automatisch beim aktvieren des PDF-Formulares
in die dazu gehörigen Felder bringe.
Habe schon überall gesucht aber nichts gefunden.
Habe auch schon Pdf-FieldMerge (Demo) auspropiert, funktionierte
nicht. Andere Lösungen sind alle leider nur in englisch.

Hat irgend jemand eine Lösung für mich?
 

Lesen sie die antworten

#1 Jürgen Volke
24/07/2008 - 15:04 | Warnen spam
Hallo Gerhard

*******************************************************
ich habe ein PDF-Dokument wo ich mit Acrobat formularfelder eingefügt
habe, bin inzwischen soweit das ich das PDF-Formular in Access 2002
aufrufen und manuell bearbeiten kann. Jetzt bràuchte ich eine
Möglichkeit wie ich in die vorhandenen Formularfelder Name, Geb.-
Datum, Arbeitgeber usw. automatisch beim aktvieren des PDF-Formulares
in die dazu gehörigen Felder bringe.
Habe schon überall gesucht aber nichts gefunden.
Habe auch schon Pdf-FieldMerge (Demo) auspropiert, funktionierte
nicht. Andere Lösungen sind alle leider nur in englisch.

Hat irgend jemand eine Lösung für mich?
*****************************************************

es muß die acrobat.tlb als Verweis eingebunden sein (beim Reader nicht
dabei)

dann etwa so:

Dim app As Object
Dim avDoc As New AcroAVDoc
Dim pdDoc As New AcroPDDoc
Dim formApp As Object
Dim acroForm As Object
Dim strDateiName As String
Set app = CreateObject("AcroExch.App")
Set avDoc = CreateObject("AcroExch.AVDoc")
If avDoc.Open("Dein.pdf", "BelName") Then
Set pdDoc = avDoc.GetPDDoc
Set formApp = CreateObject("AFormAut.App")
Set acroForm = formApp.Fields
acroForm(Feld1).Value = Wert1
acroForm(Feld2).Value = Wert2
..
If pdDoc.Save(1, "SaveUnterName") = True Then
Call avDoc.PrintPages(0, 0, 2, False, True) ' ausdrucken
avDoc.Close (0) ' PDF schließen
ELSE
MsBox "Speicherung fehlgeschlagen"
end if
pdDoc.Close
Set pdDoc = Nothing
Set acroForm = Nothing
Set formApp = Nothing
End If
Set avDoc = Nothing
Set app = Nothing


HTH Jürgen

Ähnliche fragen