Save adobe pdf file as pdf

You are almost there.

The statement:

Dim PdfDoc As Acrobat.CAcroPDDoc

is correct

The second statement should be something to the effect:

Set PdfDoc = AcrobatDocument.GetPDDoc()

After you have made your edits to the contents of the fields, use the Save method of the PDDoc object.

PdfDoc.Save PDSaveFull, " the full path for the file "

I Hope that makes sense and helps you.

Bill

Hello and thank you for your help.

I'm slightly struggling to follow you instructions.

Would you be able to help me out to add the required code to print the file into pdf and close the file?

Would really appreciate it!

======================================================================

Dim AcrobatApplication As Acrobat.CAcroApp

Dim AcrobatDocument As Acrobat.CAcroAVDoc

Dim PdfDoc As Acrobat.CAcroPDDoc '#1

Dim WasSaved As Variant

Dim Fcount As Long

Dim sFieldName As String

Set AcrobatApplication = CreateObject("AcroExch.App")

Set AcrobatDocument = CreateObject("AcroExch.AVDoc")

Set PdfDoc = CreateObject("AcrExch.PDDoc") '#2

If AcrobatDocument.Open("Path\FileName.pdf", "") Then

AcrobatApplication.Show

Set Acroform = CreateObject("AFormAut.App")

Set Fields = Acroform.Fields

Fcount = Fields.Count

Fields("A Identifying number").Value = Sheet1.Range("F5").Value

Fields("City or town state and ZIP code").Value = Sheet1.Range("I5").Value & " " & Sheet1.Range("J5").Value

Fields("Name of person filing this return").Value = Sheet1.Range("E5").Value

Else

MsgBox "Check"

End If

AcrobatApplication.Exit

Set AcrobatApplication = Nothing

Set Field = Nothing

Set AcrobatDocument = Nothing

Set Acroform = Nothing

Set Fields = Nothing

The Acrobat SDK Documentation describes the different Objects you are using.

You have referenced

App : the application itself

AVDoc : the document as seen in the user interface

There is another one you will need:

PDDoc : the underlying PDF representation of the document

After dimensioning the PDDoc object, you can use the GetPDDoc method of the AVDoc object to set it.

From there you can use the Save method of the PDDoc object.

You can refer to the documentation that was part of the Acrobat SDK.

I hope that helps

Bill

Well.

It may be trying to return a Boolean.

let's try:

Dim x as Boolean

x = PdfDoc.Save PDSaveFull, "C:\Users\ilot\Desktop\VBA Tests\Excel to PDF - Not perfect_Need to fix"

here is a link to the Adobe Reference:

https://www.adobe.com/content/dam/acom/en/devnet/acrobat/pdfs/iac_api_reference.pdf

Bill, Thank you so much for your help.

I tried to add the missing statements, however I'm getting an error message:

Run-Time error 91':

Object variable or With block variable not set

Error is pointing to the PDFDOC.save statement.

Can you please let me know if you know what is wrong with what I did?

Is it related to missing brackets by any chance

Thanks again.

====================================================================

Sub WriteToAdobeFields()

Dim AcrobatApplication As Acrobat.CAcroApp

Dim AcrobatDocument As Acrobat.CAcroAVDoc

'==============

Dim PdfDoc As Acrobat.CAcroPDDoc

'===============

Dim WasSaved As Variant

Dim Fcount As Long

Dim sFieldName As String

Set AcrobatApplication = CreateObject("AcroExch.App")

Set AcrobatDocument = CreateObject("AcroExch.AVDoc")

'===============

Set PdfDoc = AcrobatDocument.GetPDDoc()

'===============

If AcrobatDocument.Open("C:\Users\ilot\Desktop\VBA Tests\Excel to PDF - Not perfect_Need to fix\1test copy from PDF.pdf", "") Then

AcrobatApplication.Show

Set Acroform = CreateObject("AFormAut.App")

Set Fields = Acroform.Fields

'Set pdfDoc = avdoc.GetPDDoc

Fcount = Fields.Count

Fields("A Identifying number").Value = Sheet1.Range("F5").Value

Fields("City or town state and ZIP code").Value = Sheet1.Range("I5").Value & " " & Sheet1.Range("J5").Value

Fields("Name of person filing this return").Value = Sheet1.Range("E5").Value

PdfDoc.Save PDSaveFull, "C:\Users\ilot\Desktop\VBA Tests\Excel to PDF - Not perfect_Need to fix"

Else

MsgBox "Check"

End If

AcrobatApplication.Exit

Set AcrobatApplication = Nothing

Set Field = Nothing

Set AcrobatDocument = Nothing

Set Acroform = Nothing

Set Fields = Nothing

End Sub