Visual Basic

<br />
    Private printFont As Font<br />
    Private streamToPrint As StreamReader<br />
    Private Shared filePath As String<br />
--------------------------------------------------<br />
    ' The PrintPage event is raised for each page to be printed.<br />
    Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)<br />
        Dim linesPerPage As Single = 0<br />
        Dim yPos As Single = 0<br />
        Dim count As Integer = 0<br />
        Dim leftMargin As Single = ev.MarginBounds.Left<br />
        Dim topMargin As Single = ev.MarginBounds.Top<br />
        Dim line As String = Nothing<br />
<br />
        ' Calculate the number of lines per page.<br />
        linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)<br />
<br />
        ' Iterate over the file, printing each line.<br />
        While count < linesPerPage<br />
            line = streamToPrint.ReadLine()<br />
            If line Is Nothing Then<br />
                Exit While<br />
            End If<br />
            yPos = topMargin + count * printFont.GetHeight(ev.Graphics)<br />
            ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _<br />
                yPos, New StringFormat())<br />
            count += 1<br />
        End While<br />
<br />
        ' If more lines exist, print another page.<br />
        If Not (line Is Nothing) Then<br />
            ev.HasMorePages = True<br />
        Else<br />
            ev.HasMorePages = False<br />
        End If<br />
    End Sub<br />
------------------------------------------<br />
    ' Print the file.<br />
    Public Sub Printing()<br />
        Try<br />
            streamToPrint = New StreamReader(app_path & "\data.txt")<br />
            Try<br />
                printFont = New Font("Arial", 10)<br />
                Dim pd As New PrintDocument()<br />
                AddHandler pd.PrintPage, AddressOf pd_PrintPage<br />
                ' Print the document.<br />
                pd.Print()<br />
            Finally<br />
                streamToPrint.Close()<br />
            End Try<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
    End Sub 'Printing    <br />
<br />
    ' This is the main entry point for the application.<br />
    Public Shared Sub Main()<br />
        Dim args() As String = System.Environment.GetCommandLineArgs()<br />
        Dim sampleName As String = args(0)<br />
        If args.Length <> 1 Then<br />
            Console.WriteLine("Usage: " & sampleName & " <file path>")<br />
            Return<br />
        End If<br />
        filePath = args(0)<br />
    End Sub<br />

Private Sub btnprint_click(byval sender as object, byval e as system.eventargs) handles btnprint.click<br />
printing()<br />
End Sub