Hi Allen,

When I tried your script, I got a dialog box asking if I wanted to open, save, or cancel. I selected open, but never got any printing.

I tried the notepad print in the reference URL and it worked as follows:

 Code:
Function NotepadPrint($objDocument)
   $objDocument.InvokeVerb("Print")
EndFunction
;
Function Get_Doc_Obj($strFolder, $strDocument)
   Dim $objShell, $objFolder, $colItems, $objItem
   $objShell  = CreateObject("Shell.Application")
   $objFolder = $objShell.NameSpace($strFolder)
   $colItems  = $objFolder.Items
   ;
   For Each $objItem In $colItems
      If $objItem = $strDocument
         $Get_Doc_Obj = $objItem
         Return
      EndIf
   Next
EndFunction


The above was in functions.kix

 Code:
Include "functions.kix"
Dim $strUser, $strFile, $rc, $strFolder, $objDocument
$strUser   = @USERID
$strFolder = "C:\Documents and Settings\" + $struser + "\Desktop\"
$strFile   = $strUser + "_info.ini"
;
$objDocument = Get_Doc_Obj($strFolder, $strFile)
$rc          = NotepadPrint($objDocument)


It briefly displayed the notepad as it printed. I'll have to keep looking.