เขียนโปรแกรมควบคุมการพิมพ์ครับ ด้วย visual basic 2010

Private pd As New PrintDocument()
Private pageCount As Integer = 0

Private Sub pd_PrintPage(sender As Object, e As PrintPageEventArgs)
    ' ถ้าสั่งพิมพ์ จะวิ่งเข้ามาที่ event นี้ ควบคุมโดยเมื่อการพิมพ์เสร็จสิ้น ก็จะบวกหน้าไป 1
    pageCount++

    If pageCount >= 50 Then
        e.HasMorePage = False ' กรณีที่ต้องการพิมพ์ต่อ กำหนดเป็น True ถ้าเป็น False แปลว่าหยุดพิมพ์
    End If
End Sub