Print long texts on the printer

[Matt-D]

There is a text-box with a long text and I want to print it out on the printer. But the printer only prints one line !!!!!!! with this method:

PRINTER.Print Text1.text
PRINTER.EndDoc

Can anybody help me ?

Important: I make this programm in VB 3.0
(I have also VB 6.0)

[Ishamel]

I've not tested this, but it might put you on the right track.


Dim pos As Integer
Dim length As Integer
Dim iRow As Integer


'Call a function to get the number of lines required.
iNumberOfLines = GetNumberOfLines(Text1.Text, [Place Page/Column Width here])


'Now that we have the number of lines required, print the string.
Call PrintString(CStr(Text1.Text), [Place Page/Column width her], iNumberOfLines)


Public Function GetNumberOfLines(sText As String, iWidth As Integer) As Integer

Dim iCounter As Integer

iCounter = 0

Do
If IsNull(sText) Then Exit Do

pos = InStr(sText, vbCr)
length = Len(sText)

If (pos < iWidth) And (pos <> 0) Then
sText = Mid(sText, pos + 1)
iCounter = iCounter + 1
ElseIf (length > iWidth) Then
pos = iWidth

Do While ((Mid(sText, pos, 1) <> " ") And (Mid(sText, iWidth + 1, 1) <> " "))
pos = pos - 1

If (pos = 0) Then
pos = iWidth
Exit Do
End If

Loop

sText = Mid(sText, pos + 1)
iCounter = iCounter + 1
Else
iCounter = iCounter + 1
sText = ""
End If

Loop Until sText = ""

GetNumberOfLines = iCounter
End Function


' This procedure prints a multi-line string correctly
Sub PrintString(sText As String, iWidth As Integer, iHeight As Integer)

Dim iCounter As Integer

For iCounter = 1 To iHeight

If IsNull(sText) Then Exit Sub

pos = InStr(sText, vbCr)

length = Len(sText)

If (pos < iWidth) And (pos <> 0) Then

Call PrintText(sText, iRow)

sText = Mid(sText, pos + 1)
ElseIf (length > iWidth) Then
pos = iWidth

Do While ((Mid(sText, pos, 1) <> " ") And (Mid(sText, iWidth + 1, 1) <> " "))
pos = pos - 1

If (pos = 0) Then
pos = iWidth
Exit Do
End If
Loop

Call PrintText(sText, iRow)

sText = Mid(sText, pos + 1)
Else
Call PrintText(sText, iRow)
sText = ""
End If

iRow = iRow + 1
Next

Printer.EndDoc
End Sub


Sub PrintText(sText As String, iRow As Integer)
Printer.CurrentY = iRow
Printer.Print sText
End Sub



[This message has been edited by Ishamel (edited 11-11-1999).]