I know that the following code will print data to a file. How can I have the same data sent directly to a printer?
---------------------------------------------------
Private Sub Command3_Click()

Dim intCount As Integer, strCount As String

Open "TESTFILE" For Output As #1

intCount = 1

Do While intCount < 11
Print #1, "This is line "; strCount
intCount = intCount + 1
Loop

Close #1

End Sub
---------------------------------------------------

Any assistance would be appreciated.