Graph Data sheet Label

[Michael Noblet]

I have a graph with a data sheet. I have added the
following code for the on print event for the detail
section of the report so the datasheet will hold my
formating, but I can not figure out how to get it to hold
the changes I make to the headers in the data sheet view.

Below is the code I have added:

Private Sub Detail_Print(Cancel As Integer, PrintCount As
Integer)
On Error Resume Next
Dim objGraph As Object
Dim objDS As Object
Set objGraph = Me!grfHours.Object
Set objDS = objGraph.Application.DataSheet
objDS.range("a1:a11").numberformat = "#.00"
objDS.range("b1:b11").numberformat = "#.00"
objGraph.Refresh
objGraph.Application.Update
DoEvents
Set objGraph = Nothing
End Sub

I am hoping somone can help with a way to make the headers
change and stay changed.