Private Sub Grid1_HTMLEndPage(ByVal [color=red]nPage[/color] As Long, ByVal _
  nPages As Long, _
  ByVal nRow As Long, ByVal nRows As Long, sFooter As String, bCancel As _
  Boolean)
 
  Debug.Print "HTMLEndPage: ", [color=red]nPage[/color], _
    sevGrid1.HTMLGetFilename([color=red]nPage[/color])
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de