=ShellExec("myPDFfile.pdf", "Print") FUNCTION ShellExec(tcFile, tcAction) LOCAL lcAction IF VARTYPE(tcAction) == "C" lcAction = ALLTRIM(tcAction) ELSE lcAction = "Open" ENDIF *-- NOTE: Taken from Rick Strahl's article in FoxPro Advisor *-- March 1998 issue (page 54-55) DECLARE INTEGER ShellExecute IN SHELL32.DLL ; INTEGER nWinHandle, ; STRING cOperation, ; STRING cFileName, ; STRING cParameters, ; STRING cDirectory, ; INTEGER nShowWindow DECLARE INTEGER FindWindow IN WIN32API ; STRING cNull, ; STRING cWinName RETURN (ShellExecute(FindWindow(0, _SCREEN.Caption), ; lcAction, ; tcFile, ; "", ; SYS(2023), ; 0)) ENDFUNC