Print max 30 tegn ?

Left (txt, 30) + VbCrLf

Strengen kan værre mellem 0 og 400 tegn lang

Dim sTest As String
    Dim sLine As String
    Dim t As Long

    sTest = "1234567879012345678901234567879abcdefghijklmnopqrstuvxyz"

    sLine = ""
    For t = 1 To Len(sTest)
        If Printer.TextWidth(sLine & Mid(sTest, t, 1)) > (105 * Printer.TwipsPerPixelX) Then
            Printer.Print sLine & vbLf
            sLine = ""
        End If
        sLine = sLine & Mid(sTest, t, 1)
    Next

    Printer.EndDoc

Takker mange gange :) det var lige det jeg ledte efter :)