Imports System.Drawing.Printing

Public Class Form1

    Dim i As Integer = 0

    Private Sub PrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)



        Dim ilksayi As Integer = CInt(TextBox1.Text)

        Dim sonsayi As Integer = CInt(TextBox2.Text)

        Dim fark As Integer = sonsayi - ilksayi

        While i < fark + 1

            e.Graphics.DrawString((i + ilksayi).ToString, New Font("Arial", 14, FontStyle.Bold), Brushes.Black, e.PageSettings.PaperSize.Width - 73, 20)

            i = i + 1

            Exit While

        End While

        If i < fark + 1 Then e.HasMorePages = True Else e.HasMorePages = False : i = 0

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MsgBox("www.accesstr.net için hazırlanmıştır")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ilksayi As Integer = CInt(TextBox1.Text)

        Dim sonsayi As Integer = CInt(TextBox2.Text)



        If CInt(TextBox1.Text) <= "0" Then

            MsgBox("İlk Sayfa Numaralasını Girmediniz")

        ElseIf CInt(TextBox2.Text) <= "0" Then

            MsgBox("Son Sayfa Numaralasını Girmediniz")



        ElseIf CInt(TextBox2.Text) < CInt(TextBox1.Text) Then

            MsgBox("Son Sayfa İlk Sayfadan Küçük Olamaz")

        Else

            Dim pd As New System.Drawing.Printing.PrintDocument

            AddHandler pd.PrintPage, AddressOf PrintDocument_PrintPage

            pd.Print()

            Me.Close()

        End If

    End Sub

End Class