🚀 go-pugleaf

I have an app that allows users to select multiple files and print
them regardless if they are Word, Excel, PowerPoint, or PDF files.  I
had it working on my computer, but I had Acrobat 7.  The rest of the
staff has Acrobat 9 and when the print, nothing happens.

So I installed Acrobat 9 and now nothing happens for me either.  In
VB6, the reference I use is Adobe Acrobat 9.0 Type Library.  The code
is as follows:

Public Sub AcrobatPrint(Filename As String)

 Dim AcroExchApp As Acrobat.CAcroApp
 Dim AcroExchAVDoc As Acrobat.CAcroAVDoc
 Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
 Dim num As Integer

 Set AcroExchApp = CreateObject("AcroExch.App")
 Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc")

 ' Open the [strfiley] pdf file
 AcroExchAVDoc.Open Filename, ""

 ' Get the PDDoc associated with the open AVDoc
 Set AcroExchPDDoc = AcroExchAVDoc.GetPDDoc

 ' Get the number of pages for this pdf [and subtract one as zero
based]
 num = AcroExchPDDoc.GetNumPages - 1
 Call AcroExchAVDoc.PrintPages(0, num, 1, True, True)

 'AcroExchApp.Show 'activate this line if you want to see the acrobat
file
 AcroExchApp.Exit
 AcroExchAVDoc.Close (True)
 AcroExchPDDoc.Close


End Sub


It opens the file and gets the page count, but the print command is
pretty much ignored.  Any ideas?