1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private 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)
Private Const WM_CLOSE = &H10
Sub IMPRIMER_PDF()
Dim FICHIER_A_IMPRIMER As String
Dim Hdl&
Dim Rep&
FICHIER_A_IMPRIMER = "Documents and Settings\MA_POMME\Bureau\MACHIN.pdf"
Hdl& = FindWindow("XLMAIN", Application.Caption)
ShellExecute Hdl&, "print", FICHIER_A_IMPRIMER, vbNullString, vbNullString, 1
Hdl& = FindWindow(vbNullString, "Adobe Reader")
Rep& = PostMessage(Hdl&, WM_CLOSE, vbNull, vbNull)
End Sub |
Partager