Hi Tclip,

In my original code (post #2), at the comment, "'you may want to run some tests on the item/attachment(s)" you can change the If... Then to confirm the filename (i.e. "*.pdf").
Then you just need to modify the PrintAtt to print PDF's:[VBA]Sub PrintAtt(file As String)
'set a reference (Tools>References) to Adobe Acrobat type library

Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Dim PDDoc As CAcroPDDoc
Dim NumPages As Long

Set AcroApp = CreateObject("AcroExch.App")
Set AVDoc = CreateObject("AcroExch.AVDoc")

AVDoc.Open file, ""
Set PDDoc = AVDoc.GetPDDoc
NumPages = PDDoc.GetNumPages

AcroApp.Show
AVDoc.PrintPages 0, NumPages, 1, True, True

End Sub[/VBA]