strFile = "test.txt"
strFolder = "C:\temp"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strFolder)
objFolder.ParseName(strFile).InvokeVerb("print")
Modified from http://www.codecomments.com/message212154.html
I'm not sure, but you may be able to change your standard output to
your printer for a short while, then send your output there. Just
thinking out loud.
Monkey