Print out embedded Word object

[dave.cuthill]

I have embedded a word document in a excel sheet and now want to
figure out how to print the word document using VBA. I found the
following in one of the groups and it seems to error out at Set wDoc =
wObject.Object
"Type mismatch"

I think that I have all the references set correctly.

I would appreciated any help you might be able to provide.

Sub OpenPrintCloseWordDoc()
Dim wksDocs As Worksheet
Dim wObject As OLEObject
Dim wDoc As Word.Document

Set wksDocs = ThisWorkbook.Worksheets("Well Summary")
For Each wObject In wksDocs.OLEObjects
wObject.Activate
Set wDoc = wObject.Object
wDoc.PrintOut
wDoc.Close
Next wObject
End Sub

 

[dave.cuthill]

After some further searching I also found this. I get an error at
ActiveSheet.OLEObjects(i).Object.Application.PrintOut when I use it in
the workbook I am developing.

When I copy this code to a newly created blank workbook and embed a
word file - it works fine. Does anyone have any ideas why it would
work correctly in one instance and not the other?


Sub otherprint()
For i = 1 To ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(i).Activate
ActiveSheet.OLEObjects(i).Object.Application.PrintOut
ActiveSheet.OLEObjects(i).Object.Close
Next i
End Sub

 

[dave.cuthill]

Okay solved the problem - I also had an ole button on the sheet and
the code was trying to act on it as well and was creating the error.