For int_i = 0 To 10
    If .CellBackColor(U, int_i) = QBColor(N_WERT_NICHT_OK) Then
        bol_unterstrichen = True
     End If
     sRow = sRow + .TextMatrix(U, int_i)
     If int_i < .Cols - 1 Then
        sRow = sRow + "|"
      End If
Next int_i
With Printer
   .FontBold = False
   .FontSize = 7
    PrintRow XPos, fmt, sRow
End With

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *