Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread Namespace / PrintDocumentEventArgs Class / CurrentPage Property
Example


In This Topic
    CurrentPage Property
    In This Topic
    Gets the order number of the current printed page.
    Syntax
    'Declaration
     
    Public ReadOnly Property CurrentPage As Integer
    'Usage
     
    Dim instance As PrintDocumentEventArgs
    Dim value As Integer
     
    value = instance.CurrentPage
    public int CurrentPage {get;}
    Example
    This example uses the PrintDocument event.
    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
    See Also