if PrinterSetupDialog1.Execute then 
begin 
  with printer do 
  begin 
    BeginDoc; 

    //The rectangle to print the AdvChartView. 
    r := Rect(0, 0, printer.PageWidth, printer.PageHeight); 

    AdvChartView.PrintAllPanes(Printer.Canvas, r); 
    //OR print a single pane. 
    AdvChartView.PrintPane(0, Printer.Canvas, r); 

    EndDoc; 
  end; 
end;

if SavePictureDialog1.Execute then 
begin 
  //for example the size of the picture has been set to a 1280 x 1024 
  //resolution. 
  AdvChartView1.SaveAllPanesToBitmap(SavePictureDialog1.FileName ,1280, 1024); 
end;