Index

From: Christopher Ireland
Subject: Re: Printing 2D pie chart: elipse problem
Date: Tue, 18 May 2004 14:12:23 +0200
Newsgroup: steema.public.teechart6.activex  

Hi Warwick --

> I would appreciate any help or tips to overcome this problem. I am
> considering puchasing TeeChart and this is one of the main requirements
> that MUST be met. If this cannot be resolved then our company and clients
> cannot purchase the product.

My best suggestion is that you use the VB6.0 API to print your chart, e.g.

Private Sub Form_Load()
TeeCommander1.Chart = TChart1
With TChart1
.Height = .Width
.Aspect.View3D = False
.AddSeries scPie
.Series(0).FillSampleValues 10
.Series(0).asPie.Circled = True
.Legend.Visible = False
.Series(0).Marks.Style = smsLabelPercent

.Export.asMetafile.Enhanced = True
.Export.asMetafile.SaveToFile "C:\TEMP\meta.emf"
End With
Picture1.Height = Picture1.Width
Picture1.Picture = LoadPicture("C:\TEMP\meta.emf")
Command1.Caption = "Print"
End Sub


Private Sub Command1_Click()
Printer.ScaleMode = vbInches
PrintRoutine Printer
Printer.EndDoc
End Sub

Private Sub PrintRoutine(objPrint As Object, _
Optional Ratio As Double = 1)
objPrint.PaintPicture Picture1, 2, 2, 2, 2

End Sub

--
Best Regards,

Christopher Ireland
http://support.steema.com

"Important note: If you are a TeeChart registered customer, please post your
support questions at Steema's Support monitored Forums for customers:
http://support.steema.com for a prompter reply."