print field memo in lines

[Marcelo Velasquez]

Hi

I have a field memo in a table of ACCESS and do I need to print this field in lines of at the most 67 characters, As I make this without breaking words?, does some ready function Exist?

------------------
The blessing of God enriches and it doesn't increase pains

[MartinLiss]

If you have VB6 you can do the following. If you have VB5 then you'll need to use InStr and modify the routine to go forward through the string rather than backward as I have done.

    Dim sMyString As String
    Dim nPos As Integer
    Dim nStartPos As Integer
    Dim bDone As Boolean

    sMyString = MySnapshot!MyField
    nStartPos = Len(sMyString) - 1
    nPos = nStartPos
    
    Do Until bDone
        If Len(sMyString) <= 67 Then
            Debug.Print sMyString
            bDone = True
            Exit Do
        End If
        Do Until nPos <= 67
            nPos = InStrRev(sMyString, " ", nStartPos)
            nStartPos = nStartPos - 1
        Loop
        Debug.Print Left(sMyString, nPos - 1)
        sMyString = Right(sMyString, Len(sMyString) - (nPos)) 'ok
        nStartPos = Len(sMyString) - 1
        nPos = nStartPos
    Loop

------------------
Marty

[Marcelo Velasquez]

What is InStrRev ?

------------------
The blessing of God enriches and it doesn't increase pains