Article ID: 145678
Article Last Modified on 5/7/2003
VBA.Width filenum, width
Private Sub Command1_Click()
Open "TESTFILE" For Output As #1
VBA.Width 1, 5 ' Note: "#" symbol omitted
For I = 0 To 9
Print #1, Chr(48 + I);
Next I
Close #1
End Sub
NOTE: The compiler will not accept this statement unless the "#" symbol is
removed.
Private Sub Form_Click()
Open "TESTFILE" For Output As #1 ' Open file for output.
Width #1, 5 ' Set output-line width to 5.
For I = 0 To 9 ' Loop 10 times.
Print #1, Chr(48 + I); ' Prints 5 characters per line.
Next I
Close #1 ' Close file.
End Sub
Additional query words: kbVBp400 kbVBp500 kbVBp600 kbVBp kbdsd kbDSupport kbVBA500 kbCompiler
Keywords: kbprb KB145678