Printing all embedded PDFs in Excel

[davis07]

I am trying to create a macro command that would format an Excel document into one page, autowrapping all cells then print the worksheet and all embedded PDFs one-by-one.
For printing the PDFs, I'm thinking something similar to the following code could work, but this has some bugs and I'm not sure how to fix...

Sub printembedded()
Dim pdfObj As OLEObject
For Each pdfObj In ActiveSheet.OLEObject
pdfObj.PrintObject
Next pdfObj
End Sub

Any ideas?
Thanks!
--Robert