Chart - imprimindo chart sem usar componentes de impressao

Top  Previous  Next

procedure TRelatorioEnquetesForm.ChartImprimirBtnClick(Sender: TObject);

var

  R: TRect;

begin

  Printer.Orientation := poLandscape;

  R.Left   := 1;

  R.Top    := 1;

  R.Bottom := Printer.PageHeight-1;

  R.Right  := Printer.PageWidth -1;

  Grafico.PrintRect(R);

end;