<font color=red>Dim nCount As Long</font>
...
 
<font color=red>nCount = 0</font>
Rs.MoveFirst
While Not Rs.EOF
  <font color=red>nCount = nCount + 1
  If nCount > 25 Then 
    nCount = 0
    Printer.NewPage
  End If</font>
 
  sRow = ""
  With DataGrid1
    For I = 0 To .Columns.Count - 1
      If .Columns(I).Visible Then
        <font color=green>' NumberFormat berücksichtigen</font>
        If .Columns(I).NumberFormat <> "" Then
          sRow = sRow + Format$(FeldInhalt(Rs.Fields(I)), _
            .Columns(I).NumberFormat) + "|"
        Else
          <font color=green>' normaler Text / sonstige Datentypen</font>
          sRow = sRow + CStr(FeldInhalt(Rs.Fields(I))) + "|"
        End If
      End If
    Next I
    PrintRow xPos, fmt, sRow
  End With
 
  <font color=green>' nächster Datensatz</font>
  Rs.MoveNext
Wend