Einzelnen Beitrag anzeigen

Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#1

ChartView drucken

  Alt 29. Dez 2012, 15:03
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;
Miniaturansicht angehängter Grafiken
a1.jpg  
www.bewerbungsmaker.de
  Mit Zitat antworten Zitat