Private Sub Grid1_HTMLBeforeRowPrint(ByVal nPage As Long, ByVal nPages As Long, _
  ByVal nRow As Long, Item As sevDataGrid2.ListItem, bSkip As Boolean)
  With Item
    If nRow Mod 2 = 0 Then
      Item.BackColor = vbWhite
      Item.ForeColor = vbBlack
    Else
      Item.BackColor = Grid1.ColumnHeaderBackColor
      Item.ForeColor = vbWhite
    End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

ByVal nRow As Long, Item As sevDataGrid2.ListItem, bSkip As Boolean)
  With Item
    If nRow Mod 2 = 0 Then
      Item.BackColor = weiseFarbe
    Else
      Item.BackColor = graueFarbe
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Private Sub F_Eingangsliste_RowLoaded(ByVal nRow As Long, Item As Object)
 
   With Item
      ' Icon einfügen
      If Me.F_Eingangsliste.Recordset.Fields("PE_Mappe") <> 0 Then
         .CellImage(1) = 1
      End If
 
      ' Je nach Art anders
      Select Case Me.F_Eingangsliste.Recordset.Fields("PE_Art")
         Case conPEANormal
            .ForeColor = vbBlack
            .BackColor = vbWhite
 
         Case conPEARueckruf
            .ForeColor = vbWhite
            .BackColor = vbGrayText
 
         Case conPEAAenderung
            .ForeColor = vbWhite
            .BackColor = vbBlue
 
         Case conPEASchaden
            .ForeColor = vbBlack
            .BackColor = vbRed
 
         Case conPEAKuendigung
            .ForeColor = vbBlack
            .BackColor = vbGreen
 
         Case conPEANeuanlage
            .ForeColor = vbBlue
            .BackColor = vbYellow
 
         Case conPEARuecklastAntwort
            .BackColor = vbCyan
            .ForeColor = vbBlack
      End Select
   End With
 
End Sub

Private Sub F_Eingangsliste_HTMLBeforeRowPrint(ByVal Page As Long, ByVal Pages _
  As Long, ByVal nRow As Long, Item As Object, Skip As Boolean)
   With Item
      If nRow Mod 2 = 0 Then
         Item.BackColor = vbWhite
         Item.ForeColor = vbBlack
      Else
         Item.BackColor = F_Eingangsliste.ColumnHeaderBackColor
         Item.ForeColor = vbWhite
      End If
   End With
End Sub

Private Sub btn_Liste_Druck_Click()
   With Me.F_Eingangsliste
     ' Text, der in der Titelzeile des
     ' Standard-Browsers erscheinen soll
     .HTMLTitle = "ASC Posteingang Liste"
 
     ' Webreport-Überschrift
     .HTMLTableTitle = "offene Rückfragen"
 
     ' Anzahl max. Datenzeilen pro Seite
     .HTMLTableRowsPerPage = 250
 
     ' autom. Navigationsleiste am Ende der Seite
     .HTMLShowNavigation = True
 
     ' Schrift- und Farbattribute übernehmen
     .HTMLUseScreenFormating = True
 
     ' Webreport erstellen:
     If .DoHTMLReport(CurrentProject.Path & "\report.htm", "11,13,15") Then
       ' Report im Standard-Browser anzeigen
       .HTMLShowReport ', True
     End If
   End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de