Hi all,

We have a multiple page/worksheet excel file that uses a macro to print all
of the worksheets to a single pdf file. this works fine btw :)

the problem now is that i want to extend the excel file to include some OLE
word/pdf documents that can be printed using the same button. these OLD
objects will be multiple pages in length.

macro so far:

##################################################
Sub Print_PDF()
Application.ActivePrinter = "CutePDF Writer on CPW2:"

Sheets("DATA ENTRY & PRESENTATION SHEET").Select
Sheets("BRIEFING").Select False
Sheets("METHOD").Select False
Sheets("SHEET1").Select False
Sheets("RISK MATRIX").Select False
Sheets("BLANK RISK").Select False
Sheets("RISKS DATABASE").Select False

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub
##################################################

now, i found this code:

##################################################
Dim wksWithWordDocs As Worksheet
Dim wordObject As OLEObject
Dim wordDocument As Word.Document

Set wksWithWordDocs = ThisWorkbook.Worksheets("Sheet1")
For Each wordObject In wksWithWordDocs.OLEObjects
wordObject.Activate
Set wordDocument = wordObject.Object
wordDocument.PrintOut
wordDocument.Close
Next wordObject
##################################################

it apparently will print out old objects but it doesnt work for me, even if
i set up a Reference to Microsoft Word 11.0 Object library in the VB editor.
i get a 'run-time error 1004 - unable to find object propert of the OLEObject
class'
with this line: Set wordDocument = wordObject.Object

any ideas?

thanks in advance peeps :)

as another approach, allowing then system to open up and print the (prevously
ole embedded) documents would also work, if this is an easier option.

"Liam T" wrote:

Hi all,

We have a multiple page/worksheet excel file that uses a macro to print all
of the worksheets to a single pdf file. this works fine btw :)

the problem now is that i want to extend the excel file to include some OLE
word/pdf documents that can be printed using the same button. these OLD
objects will be multiple pages in length.

macro so far:

##################################################
Sub Print_PDF()
Application.ActivePrinter = "CutePDF Writer on CPW2:"

Sheets("DATA ENTRY & PRESENTATION SHEET").Select
Sheets("BRIEFING").Select False
Sheets("METHOD").Select False
Sheets("SHEET1").Select False
Sheets("RISK MATRIX").Select False
Sheets("BLANK RISK").Select False
Sheets("RISKS DATABASE").Select False

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub
##################################################

now, i found this code:

##################################################
Dim wksWithWordDocs As Worksheet
Dim wordObject As OLEObject
Dim wordDocument As Word.Document

Set wksWithWordDocs = ThisWorkbook.Worksheets("Sheet1")
For Each wordObject In wksWithWordDocs.OLEObjects
wordObject.Activate
Set wordDocument = wordObject.Object
wordDocument.PrintOut
wordDocument.Close
Next wordObject
##################################################

it apparently will print out old objects but it doesnt work for me, even if
i set up a Reference to Microsoft Word 11.0 Object library in the VB editor.
i get a 'run-time error 1004 - unable to find object propert of the OLEObject
class'
with this line: Set wordDocument = wordObject.Object

any ideas?

thanks in advance peeps :)