Access - VBA - Ausdruck einer PDF Datei

Declare PtrSafe Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long  

Public Sub PrintFile(ByVal strFile As String)
    Dim inthWnd As Long
    inthWnd = IIf(Application.Name = "Microsoft Access", hWndAccessApp, hwnd)  
    Call apiShellExecute(inthWnd, "print", strFile, vbNullString, vbNullString, 0)  
End Sub

Sub Test()
   PrintFile "C:\Test.pdf"  
End Sub