Visual Basic

    Private Sub document_PrintPage(ByVal sender As Object, _<br />
       ByVal e As System.Drawing.Printing.PrintPageEventArgs) _<br />
           Handles docToPrint.PrintPage<br />
<br />
        Dim printFont As New System.Drawing.Font _<br />
     ("Arial", 12, System.Drawing.FontStyle.Regular)<br />
        ' Insert code to render the page here.<br />
        ' This code will be called when the control is drawn.<br />
<br />
        ' The following code will render a simple<br />
        ' message on the printed document.<br />
<br />
<br />
        If System.IO.File.Exists(SaveFileDialog1.FileName) Then<br />
            count = 0<br />
            menu2 = File.OpenText(SaveFileDialog1.FileName)<br />
            menu2 = System.IO.File.OpenText(SaveFileDialog1.FileName)<br />
            Do Until menu2.Peek = -1<br />
                menuitem(count) = menu2.ReadLine<br />
                'e.Graphics.DrawString(menuitem(count), printFont, _<br />
                'System.Drawing.Brushes.Black, 10, 10)<br />
                'e.Graphics.DrawString(writeline(count), printFont, _<br />
                'System.Drawing.Brushes.Black, 10, 10)<br />
                count = count + 1<br />
            Loop<br />
            For counter = 0 To count<br />
                e.Graphics.DrawString(menuitem(count), printFont, _<br />
                System.Drawing.Brushes.Black, 10, 10)<br />
                e.Graphics.DrawString(writeline(count), printFont, _<br />
                System.Drawing.Brushes.Black, 10, 10)<br />
            Next counter<br />
            menu2.Close()<br />
<br />
<br />
        End If<br />
<br />
<br />
<br />
        ' Draw the content.<br />
<br />
    End Sub