open and print file .pdf

Hi

I am new to excel and I am trying to create a macro that will open a hyperlink to a pdf file and print it. The hyperlink is manually added by the user to column D

I have the below that opens the files in column d but I can not get it to print. Any advice will be much appreciated

Sub HyperOpen()
Dim cell As Range
Dim r As Integer 'Last used row in column D
On Error Resume Next
'Last used row in column D
r = Range("D65536").End(xlUp).Row

For Each cell In Range("D2:D5000" & r) 'Range containing hyperlinks
cell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
Next cell
End Sub
Sub Hyper()