Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai

by Jesse Sawyer (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 3^rd February 2004
Date Added: Mon 8^th 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

Rate Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai



      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

Download this snippet Add to My Saved Code

Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai Comments

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.

Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai

Print large text boxes in a given length without truncating a word. EquipToPrint is a string contai Comments

Post your comment

Difficulty