CodeItBetter Programming Another VB Programming Blog

'Miscellaneous - How to Print a Text file

'Add a Text Box to your form and set it's MultiLine property to True

Private Sub Form_Load()
    Dim sFile As String
    sFile = "C:\Temp\Test.txt"
    Open sFile For Input As #1
    Text1.Text = Input(LOF(1), #1)
    Close
    Printer.Print Text1.Text
    Printer.EndDoc
End Sub