Printing dotted lines does not work in version 7

Joris Fontyn · Post by **Joris Fontyn** » Fri Mar 10, 2006 10:19 am

Hi,

With the Chart below (this is the saved file), I was able to print the dotted lines up to version 6 of TeeChart, now even with the latest version 7.06, this does not work (I tested 2 printers) and it only prints the dotted lines as full/solid lines. What should I do to make the dotted lines print as dotted lines?

Thanks in advance.

Frank Van Overwalle

object TChart
Left = 209
Top = 0
Width = 986
Height = 879
BackWall.Brush.Color = clWhite
Legend.Alignment = laLeft
Legend.CheckBoxes = True
Legend.CustomPosition = True
Legend.Font.Height = -9
Legend.Left = 5
Legend.LegendStyle = lsSeries
Legend.MaxNumRows = 30
Legend.Shadow.HorizSize = 0
Legend.Shadow.VertSize = 0
Legend.Symbol.Squared = True
Legend.Top = 5
Legend.VertMargin = -1
MarginLeft = 0
MarginRight = 0
PrintProportional = False
Title.Font.Color = clBlack
Title.Text.Strings = (
' [ Mackie+Cooper84 ] ')
BottomAxis.Automatic = False
BottomAxis.AutomaticMaximum = False
BottomAxis.AutomaticMinimum = False
BottomAxis.LabelsFont.Height = -9
BottomAxis.LabelsSeparation = 0
BottomAxis.Maximum = 4.000000000000000000
BottomAxis.MaximumOffset = 8
BottomAxis.Minimum = 1.000000000000000000
BottomAxis.MinimumOffset = 8
BottomAxis.MinorTicks.Visible = False
BottomAxis.Title.Caption = 'Condition'
LeftAxis.Automatic = False
LeftAxis.AutomaticMaximum = False
LeftAxis.AutomaticMinimum = False
LeftAxis.ExactDateTime = False
LeftAxis.Increment = 1.000000000000000000
LeftAxis.LabelsAlign = alOpposite
LeftAxis.LabelsFont.Height = -9
LeftAxis.LabelsSeparation = 20
LeftAxis.LabelsSize = 25
LeftAxis.Maximum = 5.669999999999996000
LeftAxis.MaximumOffset = 10
LeftAxis.Minimum = -8.000000000000000000
LeftAxis.MinimumOffset = 10
LeftAxis.Title.Caption =
'Y-Axis Values (r=0.409/0.946 model=71 lrate=0.30 trate=0.40 trus' +
't=0.50 tstart=0.40 #agents=2)'
RightAxis.Automatic = False
RightAxis.AutomaticMaximum = False
RightAxis.AutomaticMinimum = False
RightAxis.Grid.Visible = False
RightAxis.LabelsFont.Height = -9
RightAxis.LabelsSeparation = 20
RightAxis.LabelsSize = 20
RightAxis.Maximum = 0.092683602073283660
RightAxis.MaximumOffset = 10
RightAxis.Minimum = -0.064202818142653010
RightAxis.MinimumOffset = 10
RightAxis.Title.Angle = 90
RightAxis.Title.Caption = 'Regressed/Simulated Values'
TopAxis.Automatic = False
TopAxis.AutomaticMaximum = False
TopAxis.AutomaticMinimum = False
TopAxis.Maximum = 0.000000000100000000
View3D = False
View3DOptions.Elevation = 315
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
View3DWalls = False
Zoom.Pen.Mode = pmNotXor
Align = alRight
BevelOuter = bvNone
Color = clBtnHighlight
TabOrder = 10
PrintMargins = (
0
0
0
0)
object TLineSeries
Marks.Callout.Brush.Color = clBlack
Marks.Visible = False
Title = '~Opinion Shift'
VertAxis = aRightAxis
LinePen.Style = psDot
Pointer.Brush.Color = clWhite
Pointer.InflateMargins = True
Pointer.Pen.Color = clRed
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
Data = {
0504000000000000000000F03FC5BAB88D06F0B63F013100000000000000404D
02D4D4B2B5AEBF01320000000000000840E1E00B93A982913F01330000000000
0010401A020EA14ACD6EBF0134}
end
object TLineSeries
Marks.Callout.Brush.Color = clBlack
Marks.Visible = False
SeriesColor = clRed
Title = 'Opinion Shift'
Pointer.InflateMargins = True
Pointer.Pen.Color = clRed
Pointer.Style = psRectangle
Pointer.Visible = True
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
Data = {
0504000000000000000000F03FAA47E17A14AE164009436F6E646974696F6E00
0000000000004000000000000020C009436F6E646974696F6E00000000000008
40E67A14AE47E108C009436F6E646974696F6E00000000000010402D5C8FC2F5
28DCBF09436F6E646974696F6E}
end
end

Joris Fontyn · Post by **Joris Fontyn** » Fri Mar 10, 2006 10:26 am

Witt respect to my previous message, I add the code that I use for the print instruction of the Chart:

Chart.PrintProportional := false;
Chart.PrintMargins := Rect(0, 0, 0, 0);
Chart.PrintLandScape;

Post by **Pep** » Tue Mar 14, 2006 5:32 pm

Hi,

which Delphi version are you using ? If you're using the D2005 or D2006, make sure you have all the updates installed and then try to print again.

Joris Fontyn · Post by **Joris Fontyn** » Wed Mar 15, 2006 10:04 am

Thanks for your attention, I am using Delphi 7

Post by **Pep** » Mon Mar 20, 2006 8:54 am

Hi,

yes, you're correct, it seems to be a bug/problem related with printers, some customers has solved this problems installing other printers drivers. Could you please try to download and install other printer drivers ? and also try to print from other printers ?

Joris Fontyn · Post by **Joris Fontyn** » Tue Mar 21, 2006 2:19 pm

Yep, it works on still another printer that I tested. I will look for a printer update.