Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub ShellImprime()
Dim fich
fich = "Lecteur\Chemin\Complet\Et\Fichier.doc"
ShellExecute 0, "print", fich, "", "", 0
End Sub