How to save as "optimized" using IAC

Question

Dear all,
I am trying to programmatically batch reduce the size of PDFs. Manually, I would go through File>Save as>Adobe PDF files, optimized. From reading the documenation I was expecting that I could achieve the same using (C# and IAC):
pdDoc.Save((short)Acrobat.PDSaveFlags.PDSaveLinearized, newName);
However, this doesn't reduce the size of the file at all. Could anyone point me in the right direction?
Kind regards,
Martin

Answer 1

I tried this:
Dim outDoc As CAcroPDDoc
Dim App As CAcroApp
Dim inDoc As CAcroPDDoc
Dim outputFileFullPath As String
Dim inputFileName As String
Dim i As Integer
'Dim fileNames(PDFfiles.Count - 1) As String
Dim xmlFileName As String
Dim w As String, x As String, y As String, z As String
Dim numInPages As Integer, numOutPages
Dim retval As Integer
Dim tempFileName As String
Dim xmlFile As String
Dim processAcrobat() As Process
Dim trialAttempts As Integer = 6
Dim triedAttempts As Integer
Dim finishedOptimization As Boolean
Dim killedAcrobat As Boolean
Dim BRetval As Boolean = False
Dim AcrobatJava As Object
'Dim pp As VariantType
'For i = 0 To PDFfiles.Count - 1
' fileNames(i) = PDFfiles(i)
'Next i
If PDFfiles.Count = 0 Then
'FileSet.LogMessage("No files were found for this set. Output File was going to be " & outputFileName)
Exit Function
End If
tempFileName = Path.Combine(outputDir, "temp.pdf")
If PDFfiles.Count > 1 Then
Try
'outDoc.New(outputFileFullPath)
outDoc = CreateObject("AcroExch.PDDoc")
App = CreateObject("AcroExch.App")
App.Hide()
'outDoc.Open(outputFileName)
File.Copy(PDFfiles(0), PDFfiles(0) + ".tmp", True)
outDoc.Open(PDFfiles(0) + ".tmp")
For i = 1 To PDFfiles.Count - 1
inDoc = CreateObject("AcroExch.PDDoc")
inputFileName = PDFfiles(i)
retval = inDoc.Open(inputFileName)
'outDoc.Attach(inDoc)
'outDoc.InputCopyAll()
numOutPages = outDoc.GetNumPages() - 1
numInPages = inDoc.GetNumPages()
retval = outDoc.InsertPages(numOutPages, inDoc, 0, numInPages, -1)
numOutPages = outDoc.GetNumPages()
inDoc.Close()
inDoc = Nothing
'File.Copy(inputFileName, outputDir & "/" & CStr(i) & ".pdf")
Next i
'outDoc.Close()
AcrobatJava = outDoc.GetJSObject()
App.Hide()
Dim pp As Object = AcrobatJava.getPrintParams()
pp.fileName = "file://c/ftp_stream/example/myDoc.ps"
pp.printerName = ""
AcrobatJava.print(pp)
'App.Show()
'App = Nothing
AcrobatJava = Nothing
outDoc.Save(Acrobat.PDSaveFlags.PDSaveFull + Acrobat.PDSaveFlags.PDSaveCollectGarbage + Acrobat.PDSaveFlags.PDSaveLinearized, Path.Combine(outputDir, outputFileName)) 'Path.Combine(outputDir, "final.pdf"))
outDoc.Close()
outDoc = Nothing
BRetval = True
Catch ex As Exception
'FileSet.LogMessage("Error Message 1007: Error concatenating Pdf Files for inputfile " & inputFileName & " OutputFile=" & outputFileName & " Error is " & Err.Description)
BRetval = False
Finally
outDoc = Nothing
Do Until killedAcrobat Or triedAttempts = trialAttempts
Try
processAcrobat = System.Diagnostics.Process.GetProcessesByName("Acrobat")
For i = 0 To processAcrobat.GetLength(0) - 1
processAcrobat(i).Kill()
Next
triedAttempts = triedAttempts + 1
If File.Exists(inputFileName + ".temp") Then
File.Delete(inputFileName + ".temp")
System.Threading.Thread.Sleep(1000)
End If
killedAcrobat = True
Catch exException As Exception
killedAcrobat = False
End Try
Loop
End Try
Else
File.Copy(PDFfiles(0), outputFileName, True)
End If
When I get to "getPrintParams" it pops up a dialogue window. How do I get it to not do that?