Ho risolto da solo con poche righe di codice:

Declare Function FindWindow _
Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Declare Function PostMessage _
Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Public Function ClosePDF()
Call PostMessage(FindWindow(vbNullString, "Adobe Reader"), _
16, 0, 0)
End Function

Cosi chiude solo la fastidiosissima pagina di adobe reader che rimane aperta dopo la stampa, se invece hai aperto un pdf non fa nulla.