Microsoft Shell Controls & Automations leaves WORD open

Hello Friends!

I've written a function in a codeunit based on code found here in another post that will print any file type from within Navision. It uses the "Microsoft Shell Controls and Automation" automation set. I'm using it to print multiple documents through seperate calls to the codeunit, passing a new filepath each time.

It works fine...except it doesn't close the WORD application when done (all documents are *.doc type). :oops:

I don't want to go with another method (i.e. Word Automation) because I want to keep the flexibility of printing multiple file types.

DOES ANY ONE KNOW HOW TO CLOSE THE APPLICATION THAT THE SHELL COMMANDS OPEN? :?

OBJECT Codeunit 50002 Print Any File
{
  OBJECT-PROPERTIES
  {
    Date=04/24/09;
    Time=[ 3:14:54 PM];
    Modified=Yes;
    Version List=FJL;
  }
  PROPERTIES
  {
    OnRun=BEGIN
          END;

  }
  CODE
  {

    PROCEDURE PrintAnyFile@1000000000(VAR FilePath@1000000011 : Text[250];VAR DIR@1000000012 : Text[250];VAR FileName@1000000013 : Text[250]);
    VAR
      Ret@1000000009 : Integer;
      CommonDialogMgt@1000000008 : Codeunit 412;
      PrintThisFile@1000000007 : Text[250];
      ObjShell@1000000004 : Automation "{50A7E9B0-70EF-11D1-B75A-00A0C90564FE} 1.0:{13709620-C279-11CE-A49E-444553540000}:'Microsoft Shell Controls And Automation'.Shell";
      objVerbs@1000000003 : Automation "{50A7E9B0-70EF-11D1-B75A-00A0C90564FE} 1.0:{1F8352C0-50B0-11CF-960C-0080C7F4EE85}:'Microsoft Shell Controls And Automation'.FolderItemVerbs";
      objFolder@1000000002 : Automation "{50A7E9B0-70EF-11D1-B75A-00A0C90564FE} 1.0:{BBCBDE60-C3FF-11CE-8350-444553540000}:'Microsoft Shell Controls And Automation'.Folder";
      objFolderItems@1000000001 : Automation "{50A7E9B0-70EF-11D1-B75A-00A0C90564FE} 1.0:{744129E0-CBE5-11CE-8350-444553540000}:'Microsoft Shell Controls And Automation'.FolderItems";
      objFolderItem@1000000000 : Automation "{50A7E9B0-70EF-11D1-B75A-00A0C90564FE} 1.0:{FAC32C80-CBE4-11CE-8350-444553540000}:'Microsoft Shell Controls And Automation'.FolderItem";
      Text000L@1000000010 : TextConst 'ENU=Couldn''''t find the file %1.\Please check that the path and filename is correct.';
    BEGIN
      // FILEPATH = WHOLE FILE PATH (C:/DRIVE/FOLDERS/SUBFOLDERS/EXAMPLE.DOC)
      // DIR = DIRECTORY LIST OF FILE PATH ONLY (C:/DRIVE/FOLDERS/SUBFOLDERS/ )
      // FILENAME = FILE NAME ONLY (EXAMPLE.DOC)
      IF ISCLEAR(ObjShell) THEN
          CREATE(ObjShell);
      IF NOT EXISTS(FilePath) THEN
        ERROR(Text000L,FilePath);

      objFolder := ObjShell.NameSpace(DIR);
      objFolderItems := objFolder.Items;
      objFolderItem := objFolderItems.Item(FileName);
      objFolderItem.InvokeVerb('PRINT');
      objVerbs := objFolderItem.Verbs;
    END;

    BEGIN
    END.
  }
}