Printing a string of characters

[JPRoy392]

I am trying to print a long string of characters (100 bytes or more) stored in a database. The problem that I am having is that I want 30 or so characters to print in a certain section on the page.

Printer.Print txtInk1(0).Text;

If the length of the characters in thetext box is greater than 30, break on the next line. If it is greater than 60, break again....

This should be easy, but I am tired being that I stayed up late to watch the Yankees. Thank You.

[MrShickadance]

Dim i        As Long
Dim strTemp  As String
Dim LineSize As Long

LineSize = 30

For i = 1 To Len(txtInk1(0).Text) Step LineSize
   
   strTemp = Mid$(txtInk1(0).Text, i, LineSize)
   Printer.Print strTemp

Next i

[JPRoy392]

Thank You Mr. Shikadance. That work exactly like I wanted it to.