Print an Embedded Word Doc

[michael.haight]

I have a workbook which contains multiple worksheets - each of which
has an embedded (not linked) Word document attached. I am attempting
to add a button on the very first sheet, which would print out ALL the
worksheets as well as the embedded Word documents.

However, all I've managed to do so far is print all the worksheets -
I'm having trouble getting the VBS code right for printing the
embedded Word documents.

Help?!

-Mike

 

[Faisal...]

Try this

for i =1 to ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(i).Activate
ActiveSheet.OLEObjects(i).Object.Application.PrintOut
next i


Faisal...