สั่ง Print แล้ว หัวข้อไปทุกหน้า VB 2008 พอจะแก้ตรงไหนได้ไหมคับ

        Dim gt As New Font("tahoma", 22, FontStyle.Bold, GraphicsUnit.Point)
        e.Graphics.DrawString(Form3.t1.Text, gt, Brushes.Black, 300, 50)

        e.Graphics.DrawString(Form3.txt2.Text, Label1.Font, Brushes.Black, 400, 100)
        e.Graphics.DrawString(Form3.txt3.Text, Label1.Font, Brushes.Black, 400, 130)
        e.Graphics.DrawString(Form3.txt4.Text, Label1.Font, Brushes.Black, 400, 160)

        e.Graphics.DrawString(Form3.txt5.Text, Label1.Font, Brushes.Black, 220, 180)
        e.Graphics.DrawString(Form3.txt6.Text, Label1.Font, Brushes.Black, 220, 200)
        e.Graphics.DrawString(Form3.txt7.Text, Label1.Font, Brushes.Black, 220, 220)
        e.Graphics.DrawString(Form3.txt8.Text, Label1.Font, Brushes.Black, 220, 240)
        e.Graphics.DrawString(Form1.count2.Text, Label1.Font, Brushes.Black, 220, 260)

        e.Graphics.DrawString(Form3.lc.Text, Label1.Font, Brushes.Black, 100, 180)
        e.Graphics.DrawString(Form3.lj.Text, Label1.Font, Brushes.Black, 100, 200)
        e.Graphics.DrawString(Form3.jn.Text, Label1.Font, Brushes.Black, 100, 220)
        e.Graphics.DrawString(Form3.op.Text, Label1.Font, Brushes.Black, 100, 240)
        e.Graphics.DrawString("DATE", Label1.Font, Brushes.Black, 100, 260)
        e.Graphics.DrawImage(Form3.PictureBox1.Image, 80, 50, 200, 100)
        Dim gtt As New Font("Calibri", 10, FontStyle.Regular, GraphicsUnit.Point)
        e.Graphics.DrawString(Form1.l1.Text & Chr(9) & Form1.l2.Text & Chr(9) & Form1.l3.Text & Chr(9) & Form1.l4.Text & Chr(9) & Form1.l5.Text & Chr(9) & Form1.l6.Text & "            " & Form1.l7.Text & Chr(9), gtt, Brushes.Black, 100, 300)
        On Error GoTo Errhandler

        Static startYPosition As Integer = 330
        Static startAt As Integer = 1

        For x As Integer = startAt To Form1.List1.Items.Count
            Form1.List1.SelectedIndex = x - 1
            If startYPosition + e.Graphics.MeasureString(Form1.List1.Text, Form1.List1.Font).Height < e.MarginBounds.Bottom Then
                e.Graphics.DrawString(Form1.List1.Text, Form1.List1.Font, Brushes.Black, 50, startYPosition)
                startYPosition += e.Graphics.MeasureString(Form1.List1.Text, Form1.List1.Font).Height
            Else
                startYPosition = e.MarginBounds.Top
                e.HasMorePages = True
                startAt = x
                Return
            End If
        Next

        e.HasMorePages = False
        startYPosition = e.MarginBounds.Top
        startAt = 1