Print a Text File
No attachments for this post
Simple method to print a text file to the default printer.
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
MsgBox "Error :" & Err.Description, vbCritical, "Printing File..."
Create a Form with a Command Button and a ListBox.
Private Sub Command1_Click()
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.