SET CLASSLIB TO libs\MindsEyeReportPreviewForms PUBLIC oRPTForm oRPTForm = CREATEOBJECT('mindseyereportpreviewform') WITH oRPTForm .Top = 10 .Left = 20 .Width = 600 .Height = 800 ENDWITH WITH oRPTForm.oReportEngine * Add Some Barcodes .AddText('','Barcodes are now Drawn in PDF Documents',1.5,.25,0,0,'Arial',20,0,0,'B') .AddText('','Without using Any Barcode Fonts',2,.5,0,0,'Arial',20,0,0,'B') .AddBarcode('','63010',1,.5,0.75,3,.5,0) .AddBarcode('','63010',1,1,1.5,2,.5,0,45) && Rotated to 45 Degrees .AddText('','Rotated Barcodes',1.7,3.2,0,0,'Arial',14,255,0,'B',450) .AddBarcode('','63010',1,7,0.75,3,.5,0,270) && Rotated 270 Degrees .AddText('','Rotated Barcodes',6.75,.75,0,0,'Arial',14,255,0,'B',2700) .AddBarcode('','296-3451',1,0.5,3.5,3,1,0) && Height of 1 inch tall barcode .AddBarcode('','63010',10,4,.75,2,3,0) && Tall Barcode .AddText('','Even Make Them Tall',3.9,3,0,0,'Arial',14,255,0,'B',900) * * Now add the Chart * .AddChart('',1,1,5,6,5) .ChartSeriesTitle = 'Portfolio' .ChartSeriesColor = 16744576 .Chartaddxydata(4.8,0,'Sep 02',16744576) .Chartaddxydata(4.1,0,'Dec 02',16744576) .Chartaddxydata(3.8,0,'Mar 03',16744576) .Chartaddxydata(3.4,0,'Jun 03',16744576) .Chartaddseries(1,'Index 1',4194432) .Chartaddxydata(4.2,0,'Sep 02',4194432) .Chartaddxydata(3.8,0,'Dec 02',4194432) .Chartaddxydata(3.5,0,'Mar 03',4194432) .Chartaddxydata(3.1,0,'Jun 03',4194432) .Chartaddseries(1,'Index 2',14089977) .Chartaddxydata(3.6,0,'Sep 02',14089977) .Chartaddxydata(3.2,0,'Dec 02',14089977) .Chartaddxydata(2.7,0,'Mar 03',14089977) .Chartaddxydata(2.5,0,'Jun 03',14089977) .Charttitle = 'Portfolio VS Benchmark' .ChartXAxisTitle = 'Period' .ChartXAxisFontSize = 16 .ChartYAxisTitle = 'Return' .ChartYAxisFontSize = 16 .ChartSeriesMarksVisible = .f. .AddText('','Multiple Series Charts',2,5,0,0,'Arial',30,0,0,'B') ENDWITH oRPTForm.ShowI'm just trying to make things as simple as possible. <g>