private void fpSpread1_PrintHeaderFooterArea(object sender, FarPoint.Win.Spread.PrintHeaderFooterAreaEventArgs e)
{
FarPoint.Win.Spread.Model.CellRange cr = e.Cells;
if (e.IsHeader)
{
e.Graphics.DrawString("Quarterly Report For " + cr.Column + " - " + cr.Row, new Font("Comic Sans MS", 8.5), Brushes.Black,
e.Rectangle.X, e.Rectangle.Y);
}
else
{
e.Graphics.DrawString("FarPoint Technologies Page# " + e.PageNumber, new Font("Comic Sans MS", 8.5), Brushes.Black, e.Rectangle.X,
e.Rectangle.Y);
}
}
Private Sub FpSpread1_PrintHeaderFooterArea(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.PrintHeaderFooterAreaEventArgs)
Handles FpSpread1.PrintHeaderFooterArea
Dim cr As FarPoint.Win.Spread.Model.CellRange = e.Cells
If e.IsHeader Then
e.Graphics.DrawString("Quarterly Report For " & cr.Column & " - " & cr.Row, New Font("Comic Sans MS", 8.5), Brushes.Black,
e.Rectangle.X, e.Rectangle.Y)
Else
e.Graphics.DrawString("FarPoint Technologies Page# " & e.PageNumber, New Font("Comic Sans MS", 8.5), Brushes.Black, e.Rectangle.X,
e.Rectangle.Y)
End If
End Sub