Private Sub Grid1_HTMLReportToolbarClick(ByVal nButton As _
  sevDataGrid2.sevGridReportButton, bCancel As Boolean)
 
  ' Klick auf Button im integrierten WebReport-Fenster
  If nButton = BUTTON_PRINTPAGE Then
    bCancel = True
 
    ' Druckvorgang selbst starten - mit Druckdialog
    With Grid1
      .HTMLPrintPage .ReportCurrentPage, True
    End With
 
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de