Print a Text File [ All Languages » VB »  Printing] Total Hit ( 2403) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Module Click here to copy the following block 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   Loop   Printer.EndDoc   Close #x   Exit Sub HandleError:   MsgBox "Error :" & Err.Description, vbCritical, "Printing File..." End Sub Usage Click here to copy the following block 'Usage : Private Sub Command1_Click()   PrintTXTFile "C:\logon.reg" End Sub

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )