For int_i = 0 To 10
   If arr_Farbe(U).Farbe And arr_Farbe(U).Spalte = int_i 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 <--- hier würde ich gerne irgendwie _
     festlegen, wenn es unterstrichen werden müßte
End With                        
 
Hat jemand nen Tipp?

MfG Sanni

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