Public ReadOnly Property CurrentPage As Integer

Dim instance As PrintDocumentEventArgs
Dim value As Integer
 
value = instance.CurrentPage

public int CurrentPage {get;}

private void Form1_Load(object sender, EventArgs e)
        {
    fpSpread1.Sheets.Count = 2;
    fpSpread1.Sheets[0].Cells[0, 0].Text = "Print Sheet 1";
    fpSpread1.Sheets[1].Cells[0, 0].Text = "Print Sheet 2";
        }

        private void button1_Click(object sender, EventArgs e)
        {
            fpSpread1.PrintSheet(-1);
        }

        private void fpSpread1_PrintDocument(object sender, FarPoint.Win.Spread.PrintDocumentEventArgs e)
        {
    listBox1.Items.Add(e.CurrentPage.ToString());
    listBox1.Items.Add(e.EventType.ToString());
    listBox1.Items.Add(e.TotalPage.ToString());
    listBox1.Items.Add(e.PrintAction.ToString());
        }

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    FpSpread1.PrintSheet(-1)
End Sub

Private Sub FpSpread1_PrintDocument(sender As Object, e As FarPoint.Win.Spread.PrintDocumentEventArgs) Handles FpSpread1.PrintDocument
    ListBox1.Items.Add(e.CurrentPage.ToString())
    ListBox1.Items.Add(e.EventType.ToString())
    ListBox1.Items.Add(e.TotalPage.ToString())
    ListBox1.Items.Add(e.PrintAction.ToString())
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    FpSpread1.Sheets.Count = 2
    FpSpread1.Sheets(0).Cells(0, 0).Text = "Print Sheet 1"
    FpSpread1.Sheets(1).Cells(0, 0).Text = "Print Sheet 2"
End Sub