PrintObject not printing - what am I missing?

[ColinCoady]

I can't figure out why this code won't print a PDF object ("AcroExch.Document.DC","") I have on a sheet.
I stuck the sh.select just to see if the macro passed the PrintObject line . Only had 1 PDF object on the sheet for testing.
No errors come up but nothing prints.
Any ideas why?
-Colin

Sub PrintAll()
'
' PrintAll Macro
' Prints all objects on sheet named Docs
'
Dim sh As Shape


Sheets("Docs").Select
    For Each sh In ActiveSheet.Shapes
    sh.ControlFormat.PrintObject = msoTrue
    sh.Select
    Next sh


End Sub

 

[bobsan42]

This is not a Print command
It is a property that determines whether or not the object will be printed with the rest of the sheet contents

 

[ColinCoady]

Ha ha Thanks for clearing that up. I'm new at this. Can you tell?

Is there any way a macro can print whatever objects are on the sheet. They are usually pdf.
Any code to pick one doc , open associated program, print it, close and then open next to print. And so on.

Never know the number of docs on the sheet but never more than 10.

Thanks
for any help.
-Colin

 

[bobsan42]

Make use of the macro recorder - it will capture some manual operations. Then try adapt the recorded code to your need.
We'll try to help fill in the blanks.