Why cannot print PDF

[clif]

Could anyone help to see why i cannot printout! Thanks!

Call AcroAVDoc.PrintPages(0, pageNo, 2, 1, 1) is not working!





Sub Checkfigures()


Application.ScreenUpdating = False




Dim searchString As String
Dim blnSearch As Boolean
Dim AcroApp As Acrobat.CAcroApp
Dim AcrobatDoc As Acrobat.CAcroPDDoc
Dim AcroAVDoc As Object
Dim pageNo As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")
Dim a As Integer

Set AcroApp = Nothing
Set AcrobatDoc = Nothing
Set AcroAVDoc = Nothing


Set AcroApp = CreateObject("AcroExch.App")
Set AcrobatDoc = CreateObject("AcroExch.PDDoc")

AcroApp.Show
AcrobatDoc.Open (ws.Cells(1, 1).Value)


Set AcroAVDoc = AcrobatDoc.OpenAVDoc("")

For a = 2 To 6

searchString = ws.Cells(a, 4).Value

blnSearch = AcroAVDoc.FindText(szText:=searchString, _
bCaseSensitive:=False, _
bWholeWordsOnly:=True, _
bReset:=2)

Set pdDoc = AcroAVDoc.GetPDDoc()
Set jso = pdDoc.GetJSObject
pageNo = jso.pageNum



Call AcroAVDoc.PrintPages(0, pageNo, 2, 1, 1)

Next a

AcrobatDoc.Close
AcroApp.CloseAllDocs
AcroApp.Exit



Application.ScreenUpdating = False


End Sub

[Aussiebear]

Hello Clif, you suggested that Call AcroAVDoc.PrintPages(0, pageNo, 2,1,1) is not working but supplied the code for the Sub CheckFigures module. Within that module you call the sub routine AcroAVDoc.PrintPages(0,2,1,1). Which sub routine is causing the issue?

[jdelano]

From what I can see this line
Call AcroAVDoc.PrintPages(0, pageNo, 2, 1, 1) should be
AcroAVDoc.PrintPages(0, pageNo, 2, 1, 1) you don't need to use Call there as that is for transferring control to subprocedures and not methods of objects.

[clif]

From what I can see this line
Call AcroAVDoc.PrintPages(0, pageNo, 2, 1, 1) should be
AcroAVDoc.PrintPages(0, pageNo, 2, 1, 1) you don't need to use Call there as that is for transferring control to subprocedures and not methods of objects.

It show error, how to solve it

[Aussiebear]

I'm guessing that when you set this
.Set AcroAVDoc = AcrobatDoc.OpenAVDoc("")
. Does it hold a value?