AW: Acrobat Reader
K.Rola
Hallo,
da die möglichen Fehler sehr zahlreich sind, habe ich auf eine detailierte Fehlerbehandlung verzichtet:
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) As Long
Private Function DateiStarten(fullPath As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, Optional ByVal Operation As String = "open") As Long
DateiStarten = (ShellExecute(0&, Operation, fullPath, vbNullString, vbNullString, WindowStyle) > 32)
End Function
Sub PDF_Aufruf()
Const DName = "C:\Programme\CameraManual\CameraManual.pdf"
Dim retVal As Long
retVal = DateiStarten(DName, vbMaximizedFocus)
If retVal -1 Then
MsgBox "Fehler beim Starten der Datei!"
End If
End Sub
Gruß K.Rola