Problem printing annotations in CWGRAPH control with VB6

Question

I am attempting to print a cwgraph control in VB6 using the ControlImage(or ControlImageEx) property and the annotations do not print correctly.  I am creating a series of annotations on the graph to represet if 1 or 2 infrared sensors are blocked.  The annontations are simple rectanges that are either filled with dark red (1 sensor blocked) or bright red (both sensors blocked).  On the form, this works perfectly.  The control image shows the annotations as not filled in.  I have attached a picture demonstrating what I am seeing.  The top image is from a printout and the bottom is what is displayed on the screen.
Using ControlImage or ControlImageEx makes no difference. This is with the latest version of measurement studio 8.5 in vb6. 
Thanks in advance.
Attachments:
graph.png ‏12 KB

Answer 1

Hi Lars,
I am printing using a DataReport so what I do is this:
With Profile.Sections("ProfileData_Detail")
    Set .Controls("imgGraph").Picture = Me.cwProfile(GraphNumber).ControlImageEx(Printer.PrintQuality, Printer.PrintQuality)
End With
I have tried using ControlImage and ControlImageEx with the same results. I have also tried saving the controlimage directly to a file with the same results.
This is how I build the annotations for the graph:
    For g = 0 To 2
        With Me.cwProfile(g)
            For i = 0 To NumOccupancySamples
                'Only create an annotation if an infared sensor is blocked.
                If lane(LaneNum).Car.Profile(i).Sensor1Active = True Or lane(LaneNum).Car.Profile(i).Sensor2Active = True Then
                    Call BuildInfraredCoordinates(i, 1)  'Calculate the values for xCoordInfrared and yCoordInfrared.
                    .Annotations.Add
                    .Annotations(.Annotations.Count).CoordinateType = cwAxesCoordinates
                    .Annotations(.Annotations.Count).Shape.LineWidth = 0
                    .Annotations(.Annotations.Count).Shape.Type = cwShapeRectangle
                    .Annotations(.Annotations.Count).Shape.SetCoordinates xCoordInfrared, yCoordInfrared
                    'Fill rectangle if sensor is active
                    If lane(LaneNum).Car.Profile(i).Sensor1Active = True And lane(LaneNum).Car.Profile(i).Sensor2Active = True Then
                        'Both sensors blocked.
                        .Annotations(.Annotations.Count).Shape.FillVisible = True
                        .Annotations(.Annotations.Count).Shape.LineColor = COLOR_BOTH
                        .Annotations(.Annotations.Count).Shape.Color = COLOR_BOTH
                    Else
                        'Only 1 sensor blocked.
                        .Annotations(.Annotations.Count).Shape.FillVisible = True
                        .Annotations(.Annotations.Count).Shape.LineColor = COLOR_SINGLE
                        .Annotations(.Annotations.Count).Shape.Color = COLOR_SINGLE
                    End If
                    .Annotations(.Annotations.Count).Caption = ""
                    .Annotations(.Annotations.Count).SnapMode = cwCSnapFloating
                    .Annotations(.Annotations.Count).Plot = 1
                End If
            Next i
        End With
    Next g
The annotations just indicate if none, 1 or both infrared sensors where blocked.
Thanks.