• Home
 · 
• Miscellaneous
 · 
• 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 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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

      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