Visual Basic

Public Class myRuler
    'Inherits System.Windows.Forms.UserControl


    Private Sub myRuler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        Dim p As Point = New Point(0, 0)
        Dim s As Size = New Size(Me.Width, Me.Height)
        Dim curRec As Rectangle = New Rectangle(p, s)
        g.DrawRectangle(Pens.Black, curRec)
        'Converting Pixels to Twips
        Dim ptoTwip As Single = (Me.Width * 15)
        'Twips to Inches
        Dim twipToInches As Single = CSng(ptoTwip / 1440)
        Dim b As Single = 0
        'Draw Numders 1 2 3 etc.
        For a As Single = 0 To twipToInches
            g.DrawString(a, New Font("Arial", 10), Brushes.Black, b, 10)
            b = b + 96 '96 192 288
        Next
        '  Dim ptomm As Integer = Me.Width / 3.779527559
        'Draw Lines between inches, and long line every 5th
        Dim y As Single = 10.0F
        For x As Single = 0 To b Step 9.6
            g.DrawLine(Pens.Black, x, 0, x, y)
            'MessageBox.Show(x)
            If x Mod 2 = 0 Then
                y = 15
            Else
                y = 10
            End If
        Next
    End Sub



End Class

Private Sub PrintDocument1_PrintPage_1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
      For Me.counter = 0 To 19
          e.Graphics.DrawString(writeline(Me.counter), printFont, _
          System.Drawing.Brushes.Black, 10, 10)
      Next Me.counter
  End Sub

Dim strPrint As New StringBuilder
        For Me.counter = 0 To 19
            strPrint.Append(printline(Me.counter) & vbCrLf)
        Next Me.counter

        e.Graphics.DrawString(strPrint.ToString, printFont, System.Drawing.Brushes.Black, 10, 10)

        If System.IO.File.Exists(SaveFileDialog1.FileName) Then

            printfile = File.OpenText(SaveFileDialog1.FileName)
            printfile = System.IO.File.OpenText(SaveFileDialog1.FileName)
            Do Until printfile.Peek = -1
                menuitem(printcounter) = printfile.ReadLine
                e.Graphics.DrawString(printfile.ReadLine, printFont, _
                System.Drawing.Brushes.Black, 10, 10)
                printcounter = printcounter + 1
            Loop

            printfile.Close()


        End If