ช่วยดู code การสั่งพิมพ์ ใน vb หน้าที่ 2 ครับ ใช้คำสั่ง hasmorepages ครับ

AnyString(e.Graphics, "สรุปรายงานการปฎิบัติงานช่าง", 450, 50)
        AnyString(e.Graphics, "" + cboTech.Text + "", 50, 100)
        AnyString(e.Graphics, "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 30, 110)
        AnyString(e.Graphics, "สถานะงาน", 50, 130)
        AnyString(e.Graphics, "ชื่อโปรเจค", 170, 130)
        AnyString(e.Graphics, "สัญญา", 360, 130)
        AnyString(e.Graphics, "หน่วยงาน", 460, 130)
        AnyString(e.Graphics, "วันเริ่มต้น", 560, 130)
        AnyString(e.Graphics, "วันสิ้นสุด", 650, 130)
        AnyString(e.Graphics, "สถานที่ปฎิบัติงาน", 740, 130)
        AnyString(e.Graphics, "ประเภทงาน", 890, 130)
        AnyString(e.Graphics, "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 30, 140)
        Dim test As Integer = 0
        Dim ypoint As Integer = 160
        For index As Integer = i To (ds.Tables("Re").Rows.Count - 1)
            'If test = 1 Then
            '    ypoint = 160
            'End If
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("Status"), 50, ypoint)
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("N_Project"), 170, ypoint)
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("Agreement"), 360, ypoint)
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("N_Department"), 460, ypoint)
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("StartJob"), 560, ypoint)
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("EndJob"), 650, ypoint)
            AnyString(e.Graphics, ds.Tables("Re").Rows(i).Item("PlaceJob"), 740, ypoint)
            checkType(i)
            AnyString(e.Graphics, "" + Type + "", 890, ypoint)
            ypoint += 300
            i += 1
            If ypoint > 800 Then
                'test = 1
                e.HasMorePages = True
            Else
                e.HasMorePages = False
            End If
        Next