by Jesse Sawyer (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 3rd February 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Print large text boxes in a given length without truncating a word. EquipToPrint is a string containing the extracted line to print. This can
EquipToPrint = Mid$(frmMainMRC.txtSystemDescription, i, 26)
If Mid$(EquipToPrint, Len(EquipToPrint) + 1) <> " " And _
(i + Len(EquipToPrint))<= Len(frmMainMRC.txtSystemDescription) Then
strPosition = InStrRev(EquipToPrint, " ", Len(EquipToPrint))
Else
strPosition = Len(EquipToPrint)
End If
Printer.Print Mid$(frmMainMRC.txtSystemDescription, i, strPosition)
Printer.CurrentY = (Printer.CurrentY + 0.025)
Printer.CurrentX = 2.9
i = (i + (strPosition - 1))
Next
No comments have been posted about Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai. Why not be the first to post a comment about Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai.