Mit VBA PDF-Formular füllen, drucken und speichern
30.10.2012 22:26:19
JoWE
Hallo,
mit einem Makro gelingt es mir aus einer Arbeitsmappe heraus die Textfelder eines PDF-Formulares zu füllen und das Formular zu drucken. Das Speichetn des ausgefüllten Formulares aber krieg ich nicht hin. Kann jemand helfen? Oder könnte es daran liegen dass ich nicht die Acrobat-Vollversion sondern nur den Acrobat Reader habe?
Hier das Makro:
'Verweise setzen:
'AFormAut 1.0 Type Library
'Adobe Acrobat 8.0 TypeLibrary
Public Sub Fill_PDF_Form()
Dim gApp As Acrobat.CAcroApp
Dim AvDoc As Acrobat.CAcroAVDoc
Dim gPDDoc As Acrobat.CAcroPDDoc
Const DOC_FOLDER As String = "D:\test"
Dim x As Boolean
Set gApp = CreateObject("AcroExch.App")
Set gPDDoc = CreateObject("AcroExch.PDDoc")
Set AvDoc = CreateObject("AcroExch.AVDoc")
Dim FormApp As AFORMAUTLib.AFormApp
Dim AcroForm As AFORMAUTLib.Fields
Dim Field As AFORMAUTLib.Field
x = AvDoc.Open(DOC_FOLDER & "\Anmeldung.pdf", "")
Set FormApp = CreateObject("AFormAut.App")
With FormApp
.Fields("anschrift inhaber").Value = Sheets(1).Cells(2, 1)
End With
AvDoc.PrintPages 0, 1, 2, 1, 1
' ????? speichern
AvDoc.Close (1)
gApp.Exit
End Sub
GrußJochen