ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Printing PDF from Excel Error (https://www.excelbanter.com/excel-programming/311231-printing-pdf-excel-error.html)

Kim[_13_]

Printing PDF from Excel Error
 
We have written a macro in excel to print pdf files. However, this
macro seems to only work on one specific computer. All other
computers in the office receives an error message. The error says:

Run-time error '429':
ActiveX component can't create object.

Below (***) is where it errors out at:

Dim AcroExchAVDoc As Object, AcroExchPDDoc As Object, _
AcroExchApp As Object
Dim strFileName As String, strPath As String
Dim iNumberOfPages As Integer, i As Integer

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

Any help or suggestions is greatly appreciated.

Kevin

Printing PDF from Excel Error
 
Do you have the same version of Acrobat on all machines?
Also, have you checked references on your machine as well
as the one(s) your having trouble with?

I am not sure if that will help you, but it should give
you a place to start.

Kevin
-----Original Message-----
We have written a macro in excel to print pdf files.

However, this
macro seems to only work on one specific computer. All

other
computers in the office receives an error message. The

error says:

Run-time error '429':
ActiveX component can't create object.

Below (***) is where it errors out at:

Dim AcroExchAVDoc As Object, AcroExchPDDoc As Object, _
AcroExchApp As Object
Dim strFileName As String, strPath As String
Dim iNumberOfPages As Integer, i As Integer

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

Any help or suggestions is greatly appreciated.
.



All times are GMT +1. The time now is 12:04 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com