$file="%userprofile%\desktop\test.rtf"
$printer="\\computername\printername"

if exist($file)
  printto($file,$printer)
  ? @error
  ? @serror
else
  ? "Invalid File/Path"
endif


function PrintTo($_file,$_printer)
 dim $,$_
 $_=split($_file,"\")
 if ubound($_) $_file=$_[ubound($_)] endif
 $_[ubound($_)]=""
 $_=join($_)
 $=createobject("shell.application")
 $.ShellExecute($_file, $_printer, $_, "printto", 0)
 exit @error
endfunction
 

Quote:

---

0
The operation completed successfully.

---

funPrintByExtension("foo.txt")
  
Function funPrintByExtension($sFileName)
	Dim $oShell
	$oShell=CreateObject("Shell.Application")
	$oShell.ShellExecute($sFileName,"","","print",1)
	If @ERROR "Error in open: "+@ERROR+": "+@SERROR+@CRLF Exit @ERROR EndIf
EndFunction

funPrintByExtension("foo.txt","\\SGBUKLHD2K001\HMIUKLHDPR201")
   
Function funPrintByExtension($sFileName,$sPrinter)
	Dim $oShell
	$oShell=CreateObject("Shell.Application")
	$oShell.ShellExecute($sFileName,$sPrinter,"","printto",1)
	If @ERROR "Error in open: "+@ERROR+": "+@SERROR+@CRLF Exit @ERROR EndIf
EndFunction

$_=join($_,"\")

• APPLICATION = "C:\Program Files\Microsoft Office\Office10\WINWORD.EXE" /n /dde
  
• DDE MESSAGE = [REM _DDE_Minimize][FileOpen("%1")][FilePrintSetup "%2 on p",.DoNotSetAsSysDefault=1][FilePrint 0][DocClose 2][FilePrintSetup ""]
  
• APPLICATION = WinWord
  
• DDE APPLICATION NOT RUNNING = [FileOpen("%1")][FilePrintSetup "%2 on p",.DoNotSetAsSysDefault=1][FilePrint 0][FileExit 2]
  
• TOPIC = System
  

Quote:

---

APPLICATION = "C:\Program Files\Microsoft Office\Office10\WINWORD.EXE" /n /dde

---

Richard,
Thanks for sticking in there, and providing your settings, as it proved to be very beneficial. Neither RTF or DOC had the /dde on it. Adding this made it work like a charm.

DDE is one of those windows oddities I don't think even MS can explain.

Thanks again.