CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to print a text file with its default printer
Sub PrintFile(ByVal sFile As String)
    Dim sText As String, iFile As Byte
    iFile = FreeFile
    Open sFile For Input As iFile
    sText = Input(LOF(iFile), iFile)
    Close iFile
    Printer.Print sText
    Printer.EndDoc
End Sub
 
Usage:
Call PrintFile("C:\Autoexec.bat") 'This prints C:\Autoexec.bat on the default printer