PDF in UF WebBrowser1 anzeigen
28.11.2021 05:51:26
Sigi
ich möchte das eine PDF Datei im UF WebBrowser1 angezeigt wird.
Leider wird die Datei im Foxit Reader geöffnet.
Was mache ich falsch?
Danke!
Gruß
Sigi
Public Declare PtrSafe Function Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub CommandButton1_Click()
Dim strFile As String
strFile = ThisWorkbook.Path & "\Muster.pdf"
With UF
.WebBrowser1.Navigate "about:blank"
While .WebBrowser1.Busy
Sleep 100
Wend
.WebBrowser1.Navigate strFile
End With
End Sub
