ファイルのパス指定での印刷方法

初めまして。
VBAを使用してあるファイルのパス指定での印刷方法をご存知の方いらっしゃいますでしょうか。
申し訳ございませんがご教示頂きたく思います。
宜しくお願い致します。

No.1 回答者： end-u 回答日時： 2010/12/16 23:07

explorerでファイル右クリックメニュー[印刷(P)]から関連付けされたApplicationで印刷。

..と同じ事をやりたい場合、下記参考にしてください。
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/technic …

うまくいかない場合は以下も試してみてください。
Sub try()
　　Const fName = "c:\test.doc" '出力したいファイルのフルパス名
　　Dim fPath As Variant
　　Dim fFile As String
　　Dim p　　 As Long

　　p = InStrRev(fName, "\")
　　fPath = Left(fName, p - 1)
　　fFile = Mid$(fName, p + 1)
　　CreateObject("Shell.Application").Namespace(fPath).ParseName(fFile).InvokeVerb "印刷(&P)"
End Sub

#VBScriptです。VBAの(A)が何のApplicationか不明ですが、対応可能でしょう。