How to print the header and footer in a grid with page count in WinForms GridControl?

protected override void OnPrintPage(System.Drawing.Printing.PrintPageEventArgs ev)
{
   base.OnPrintPage(ev);
   //compute the position of the header
   float x = (float)this.DefaultPageSettings.Bounds.X;//this.DefaultPageSettings.Margins.Left;
   float y = (float)this.DefaultPageSettings.Margins.Top - headerHeight - 30;
   float w = (float)this.DefaultPageSettings.Bounds.Width;
   float h = (float)headerHeight + 30;

   //setup the alignment
   StringFormat format = new StringFormat();
   format.LineAlignment = StringAlignment.Center;
   format.Alignment = StringAlignment.Center;

   //define the header text and draw it
   string text = string.Format("Header Text {0}", pageNo);
   Font font = new Font(_grid.Font.Name, 30);
   ev.Graphics.DrawString(text, font, Brushes.Black, new RectangleF(x, y, w, h), format);

   //position the footer; align the footer ; print the footer
   y = (float)(this.DefaultPageSettings.Bounds.Top + this.DefaultPageSettings.Bounds.Height - footerHeight);// Margins.Top - headerHeight - 30;
   h = (float)footerHeight;
   format.Alignment = StringAlignment.Center;

   // Gets the page No. with the Maximum Page
   text = string.Format("Footer Text {0} of {1}", pageNo, this.PrinterSettings.MaximumPage);
   font = new Font(_grid.Font.Name, 10);
   ev.Graphics.DrawString(text, font, Brushes.Black, new RectangleF(x, y, w, h), format);
   pageNo++;
}

Protected Overrides Sub OnPrintPage(ByVal ev As System.Drawing.Printing.PrintPageEventArgs)
            MyBase.OnPrintPage(ev)
   'compute the position of the header
   Dim x As Single = CSng(Me.DefaultPageSettings.Bounds.X) 'this.DefaultPageSettings.Margins.Left;
   Dim y As Single = CSng(Me.DefaultPageSettings.Margins.Top) - headerHeight - 30
   Dim w As Single = CSng(Me.DefaultPageSettings.Bounds.Width)
   Dim h As Single = CSng(headerHeight) + 30

   'setup the alignment
   Dim format As New StringFormat()
   format.LineAlignment = StringAlignment.Center
   format.Alignment = StringAlignment.Center

   'define the header text and draw it
   Dim text As String = String.Format("Header Text {0}", pageNo)
   Dim font As New Font(_grid.Font.Name, 30)
   ev.Graphics.DrawString(text, font, Brushes.Black, New RectangleF(x, y, w, h), format)

   'position the footer; align the footer ; print the footer
   y = CSng(Me.DefaultPageSettings.Bounds.Top +Me.DefaultPageSettings.Bounds.Height - footerHeight) 

   ' Margins.Top - headerHeight - 30;
   h = CSng(footerHeight)
   format.Alignment = StringAlignment.Center

   ' Gets the page No. with the Maximum Page
   text = String.Format("Footer Text {0} of {1}", pageNo,
   Me.PrinterSettings.MaximumPage)
   font = New Font(_grid.Font.Name, 10)
   ev.Graphics.DrawString(text, font, Brushes.Black, New RectangleF(x, y, w, h), format)
   pageNo += 1
End Sub