AW: pdf schließen
30.01.2023 18:50:16
volti
Hallo Rolf,
hier ein Beispiel.
Du kannst eine Anwendung schließen, wenn Du ihr die Message WM_CLOSE sendest.
Zur Indentifikation benötigst Du allerdings den Caption-Text, also das was im Fenstertitel steht.
Schau mal, was bei Dir dort steht und trage es in die u.a. Sub ein.
Wenn der Fenstertet nicht bekannt ist, kann man diesen (aber mit deutlich mehr Code) mittels einer Schleife ermitteln.
Code:
Option Explicit
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" ( _
ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, _
ByVal lParam As LongPtr) As Long
Private Const WM_CLOSE = &H10
Dim hwnd As LongPtr
Sub SchließePDF()
'PDF-Datei schließen
hwnd = FindWindow(vbNullString, "Auftragsbestätigung.pdf - Adobe Acrobat Reader (64-bit)")
PostMessage hwnd, WM_CLOSE, 0&, 0& 'Outlook schließen
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz