Thanks to examples from Richard Hendricks, I am able to add a graph to a general field and display the graph with the desired properties.

How do I save the custom properties so I can redisplay the graph at a later time?
I am able to print the graph by including the general field in a report, but how do I print the graph with the same properties? (I assume that when I know how to save the properties, I will be able to print it.)
I am able to display a line graph , but it has symbols instead of lines. I am using the following code:

#DEFINE xlCategory 1
CREATE CURSOR GRAPH (graph G)
APPEND BLANK
wait window nowait "Building Graph - Append General"
APPEND GENERAL graph CLASS "MSGraph" DATA lcData

THIS.icGraphAlias = "GRAPH"
THIS.oleGraph.ControlSource = "Graph.graph"
#DEFINE xlLine 4
#DEFINE xlCategory 1 && X axis
#DEFINE xlValue 2 && Y axis
#DEFINE xlVertical -4166 && Orientation
#DEFINE xlBottom -4107 && Position

WITH this.oleGraph.Axes(xlValue) && Y Axis, Vertical
.HasTitle = .t.
.AxisTitle.Caption = "Meter Reading" .AxisTitle.Orientation = xlVertical
.AxisTitle.Font.Italic = .f.
.AxisTitle.Font.Bold = .f.
.AxisTitle.Font.Size = 3
ENDWITH
WITH this.oleGraph.Axes(xlCategory) && X Axis, Horizontal
.HasTitle = .T.
.AxisTitle.Caption = "Meter is read 3 times per minute" .AxisTitle.Font.Italic = .f.
.AxisTitle.Font.Bold = .f.
.AxisTitle.Font.Size = 1.5
ENDWITH
**setup axis labels and Titles
with this.oleGraph
.axes(xlCategory).ticklabels.font.size = 1
.axes(xlValue).ticklabels.font.size = 2
.HasTitle = .t.
.ChartTitle.Caption= "Chart Title, Line 1"
.ChartTitle.Font.Size = 2
.ChartTitle.Font.Underline = .t.
endwith
**setup legend
with this.oleGraph.Legend
.font.size = 1.5
.Position = xlBottom
endwith

THIS.oleGraph.autoformat( xlLine ,1 )


I can view the graph correctly the first time, but I cannot save the formatting. When I browse the table and double click on the general field, it has none of the property values from the above code.

Any help would be very much appreciated!

Denis Schuette
McElhaney Cattle Co.
deniss@c2i2.com