PrintFile

Print File

Print File

Preparations

Add 1 Text Box to your form.
Set the Text Box's MultiLine property to True, and the
Text Box's Visible property to False.

Form Code

Private Sub Form_Load()
Dim file As String

'Replace 'c:\autoexec.bat' with the file you want to print
file = "c:\autoexec.bat"
Open file For Input As #1
Text1.Text = Input(LOF(1), #1)
Close
Printer.Print Text1.Text
Printer.EndDoc

End Sub