ChartView drucken

[blondervolker]

Nachträglich noch alles Gute und einen Guten Rutsch ins "Neue"...

Ich versuche seit Stunden ein Chart von TMS vernünftig auszudrucken.
In der Hilfe findet man keine vernünftigen Beispiele.
Bei mir wird das Chart immer als "EI" dargestellt.
Hab kein Plan...
Siehe Bild als Anhang.

Delphi-Quellcode:

procedure TForm18.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Width := DBAdvGDIPChartView1.Width;
  bmp.Height := DBAdvGDIPChartView1.Height;
  DBAdvGDIPChartView1.PrintAllPanes(bmp.Canvas, Bounds(0,0, bmp.Width, bmp.Height));
  Printer.BeginDoc;
  Printer.Canvas.StretchDraw(Bounds(2000,2000,2000,2000), bmp);
  Printer.EndDoc;
  bmp.Free;
end;