The following is an example of what I've done in my programs:
Create a form with one textbox named "Text1".
Option Explicit
Dim intKey As Integer
Private Sub Text1_Change()
Dim intLength As Integer
'Set Textbox width to 250 and alignment to center
Me.Font = Text1.Font...
cLng(Varient) converts Varient into long
cLng(String) converts String into long
cInt(Varient) converts Varient into integer
cInt(String) converts String into integer
cStr(Long) converts long into String
cVar(Long) converts long into varient
cStr(Integer) converts integer into String...
After the program filters the string, put the following line before EXIT SUB:<br>
<br>
Printer.Print STRING<br>
<br>
It will advance to the next line when it is read again.<br>
<br>
Be Aware, this will tie up the printer until the program ends.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.