3 replies
by dsivik Accepted solution
by peconet tietokoneet Accepted solution
Here is the code:
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Dim IsSuccess As Boolean
Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")
AVDoc.Open "c:\windows\desktop\back_cover.pdf", ""
Set PDDoc = AVDoc.GetPDDoc
AcroApp.Show
AVDoc.PrintPages 1, 1, 2, True, True
'Close the PDF
AVDoc.Close True
AcroApp.Exit
'Cleanup
Set PDDoc = Nothing
Set AVDoc = Nothing
Set AcroApp = Nothing
Exit Sub
by dsivik Accepted solution
This looks similar to the other codes I've written and I get the same result. I get error and it highlights the line.......
[Set AcroApp = CreateObject("AcroExch.App")]
This discussion is closed to new replies.
Trending Software posts
Sort by Trending