With Grid
      ' Überschrift
      .HTMLTableTitle = Titel
 
      ' Schriftgröße
      .HTMLFontSize = 8
 
      ' Linien-Gitter
      .HTMLPrintGridLines = sevDataGrid2.sevGridLines.GRID_BOTH
 
      ' Fußzeilen
      .HTMLPrintFooter = True
      .HTMLUseScreenFormating = True
 
      If .DoHTMLReport(TempPfad) Then
         Shell "\\...\DokumentDrucken.exe " & TempPfad
         ' DokumentDrucken.exe --> VB.NET Programm mit einem Webbrowser für 
         ' die Druckvorschau
      Else
         MsgBox "Fehler beim erzeugen des Druckdokuments.", vbCritical, _
           "Druckfehler"
      End If
   End With