Option Explicit
' API-Aufruf zum Anzeigen des HTML-Reports
' im Standard-Browser
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
 
' HTML-Report im Standard-Browser anzeigen
Public Sub HTMLShowReport(ByVal hWnd As Long, _
  ByVal Filename As String)
 
  ShellExecute hWnd, "open", Filename, vbNullString, _
    vbNullString, vbNormalFocus
End Sub
 
Private Sub Command1_Click()
 
Dim HTMLFile
HTMLFile = App.Path & "\test.html"
HTMLShowReport Me.hWnd, HTMLFile
 
 
 
End Sub