DECLARE INTEGER ShellExecute IN "Shell32.dll" ; INTEGER hwnd, ; STRING lpVerb, ; STRING lpFile, ; STRING lpParameters, ; STRING lpDirectory, ; LONG nShowCmd lcPDFfile = "c:\mydir\myfile.pdf" * Open PDF file =Shellexecute(0,"Open", lcPDFfile, "","",7) * Print PDF file =Shellexecute(0,"Print", lcPDFfile, "","",0)