.NET (Core and Framework)

Public PageCount As Integer
WithEvents Doc As New PrintDocument

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim Diag As New PrintDialog

    Diag.Document = Doc

    Diag.AllowSomePages = True
    Diag.PrinterSettings.MinimumPage = 1
    Diag.PrinterSettings.MaximumPage = 3
    Diag.PrinterSettings.FromPage = 1
    Diag.PrinterSettings.ToPage = 3

    If Diag.ShowDialog() = DialogResult.OK Then
        PageCount = 1
        Doc.Print()
    End If
End Sub

Private Sub PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Doc.PrintPage
    'Dim f As New Font(FontFamily.GenericSerif, 18, FontStyle.Regular)
    'e.Graphics.DrawString("Page #" & PageCount, f, Brushes.Black, 10, 10)

    PageCount += 1
    If PageCount <= 3 Then
        e.HasMorePages = True
    End If

End Sub

<br />
        private System.Windows.Forms.NumericUpDown numericUpDown1;<br />
        private System.Windows.Forms.Button button1;<br />
		/// <summary><br />
		/// Required designer variable.<br />
		/// </summary><br />
		private System.ComponentModel.Container components = null;<br />
        private int i;<br />
<br />
		public Form1()<br />
		{<br />
			//<br />
			// Required for Windows Form Designer support<br />
			//<br />
			InitializeComponent();<br />
<br />
            numericUpDown1.DataBindings.Add("Text", this, "I");<br />
            numericUpDown1.DataBindings.Add("Value", this, "I");<br />
        }<br />
<br />
        public int I {<br />
            get {<br />
                return i;<br />
            }<br />
            set {<br />
                i = value;<br />
            }<br />
        }<br />
<br />