求助：vfp自动打印pdf文件

以下是打开了pdf文件，什么命令可以打印呢，请帮忙。tks!

Thisform.Newobject('pdf', 'Olecontrol', '', '', 'AcroPDF.PDF.1')
Thisform.pdf.Move( 10, 10, Thisform.Width - 20, Thisform.Height - 20)
Thisform.pdf.SetShowToolbar(.f.)
Thisform.pdf.LoadFile( Getfile('pdf') )
Try     
Thisform.pdf.Visible = .T.
Catch
Endtry
Thisform.ActiveWindow.SelectedSheets.PrintOut
Thisform.pdf.SetFocus()

是的，打印用什么命令

希望打开指定的pdf文件，并且直接打印出来，这样可以做到吗

例如：在D:上有2个文件，a.pdf和b.pdf，要求vfp自动打印，请高手帮忙。谢谢

网上找到以下一段代码，可以打印pdf文件，但怎么关闭这个文件呢，请各位帮忙。谢谢！

Thisform.Newobject('pdf', 'Olecontrol', '', '', 'AcroPDF.PDF.1')
Thisform.pdf.Move( 10, 10, Thisform.Width - 20, Thisform.Height - 20)
Thisform.pdf.SetShowToolbar(.f.)
Thisform.pdf.LoadFile( Getfile('pdf') )
Try     
Thisform.pdf.Visible = .T.
Catch
Endtry
Thisform.pdf.SetFocus()

以下代码可以打开，打印，关闭pdf文件，但不知道INKEY有什么用，高手请帮忙指点一下。谢谢


#define WM_CLOSE  0x0010


    lpszfile='142681-6-1 GM.pdf'

    IF FILE(lpszfile)
        DECLARE INTEGER ShellExecute IN Shell32.DLL INTEGER HWND,STRING,STRING lpszFile,STRING,STRING,INTEGER
        DECLARE Long FindWindow IN WIN32API ;
        String lpClassName, String lpWindowName
        DECLARE Long PostMessage IN WIN32API ;
        Long hWnd, Long Msg, Long wParam, Long lParam
        =ShellExecute(0,'Open',lpszfile,'','',1)
        INKEY(5)
        =ShellExecute(0,'print',lpszfile,'','',1)
        INKEY(10)
        m.hWnd = FindWindow(null, JUSTFNAME(lpszfile) +' - Adobe Reader')
        IF (m.hWnd == 0)
               MessageBox('没有找到打开 pdf 文件的窗口。')
        ELSE
            PostMessage(m.hWnd, WM_CLOSE, 0, 0)
        ENDIF
        CLEAR DLLs "ShellExecute", "FindWindow", "PostMessage"
        *INKEY(5)
    ENDIF