mORMot Open Source

var
  PdfDoc: TPdfDocumentGDI;
  PdfPage: TPdfPage;
  ChartMetafile: TMetafile;
  bmp: TBitmap;
begin
  ChartMetafile := nil;
  bmp := nil;
  PdfDoc := TPdfDocumentGDI.Create(False, 0, true, nil);
  try
    PdfPage := PdfDoc.AddPage;
    PdfPage.PageLandscape := true;

    ChartMetafile := Chart.TeeCreateMetafile(False, Rect(0,0, PdfPage.PageWidth, PdfPage.PageHeight));

    bmp := TBitmap.Create;
    bmp.Width := ChartMetafile.Width;
    bmp.Height := ChartMetafile.Height;
    bmp.Canvas.Draw(0, 0, ChartMetafile);
    bmp.SaveToFile('c:\temp\test.bmp');

    PdfDoc.VCLCanvas.Draw(0, 0, ChartMetafile);
    PdfDoc.SaveToFile('c:\temp\test.pdf');

  finally
    PdfDoc.Free;
    ChartMetafile.Free;
  end;