Search Tools Links Login

Print a Text File

Simple method to print a text file to the default printer.


Option Explicit

Public Sub PrintTXTFile(FileName As String)
    Dim x As Integer
    Dim s As String

    x = FreeFile
    On Error GoTo HandleError
    Open FileName For Input As x
    Do While Not EOF(x)
        Line Input #x, s
        Printer.Print s
    Close #x
    Exit Sub
    MsgBox "Error :" & Err.Description, vbCritical, "Printing File..."
End Sub


Create a Form with a Command Button and a ListBox.

Private Sub Command1_Click()
    PrintTXTFile "C:\logon.reg"
End Sub

About this post

Posted: 2019-10-02
By: AndreaTincani
Viewed: 291 times


Visual Basic 6


No attachments for this post

Special Instructions

This code originally appeared on, and has been republished here with the permission of Andrea Tincani.

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.