Компонент Chart.

[Небесный]

Ребята, вот с такой байдой столкнулся, нужно некий график, который имееться в Chart, бросить на печать, кто может подсказать, как это можно реализовать?

[SunKnight]

Chart.Print; или нужно как то иначе вівести?

[Небесный]

А, можно более подробно, че за свойство.
И это еще, можно ли по оси "Х" заменить цыфры на месяцы года (1-12 = январь-декабрь ). И вот еще, я бы хотел еще отдельный текст добавить на распечатку, чтобы текст был под графиком.

[D@rk M@k]

Выложите код. Лучше показать чем писать тут сотни слов. А там дальше вы сами...

[SERG1980]

можно так

uses teeprevi
........
chartpreview(form1,chart1);

[Stilet]

можно ли по оси "Х" заменить цыфры на месяцы года

Можно, для Axis определить формат Labels'ов

че за свойство.

Не свойство а метод

я бы хотел еще отдельный текст добавить на распечатку, чтобы текст был под графиком.

на вкладке Chart->Titles выбери в списке foot и пиши текст, он будет под низом

[Небесный]

Сообщение от Stilet

на вкладке Chart->Titles выбери в списке foot и пиши текст, он будет под низом

Текста будем много, как минимум строчек 15, как переход по строкам идти в foot (например в мемо .лайнс).

Сообщение от Stilet

Можно, для Axis определить формат Labels'ов

Вроде полазил - ничего такого не увидел, чтобы сменить цыфры на месяца.

[Небесный]

И еще вот код, для полного понимания о чем идет речь.

implementation
var
  x : integer;
  mas_y:array[0..12] of real;
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  BitBtn1.Show;
  BitBtn2.Hide;
  BitBtn3.Hide;
  BitBtn4.Hide;
  BitBtn5.Hide;
  BitBtn6.Hide;
  BitBtn7.Hide;
  BitBtn8.Hide;
  BitBtn9.Hide;
  BitBtn10.Hide;
  BitBtn11.Hide;
  BitBtn12.Hide;
  Label1.Caption:='Введите сумму за январь месяц';
  Edit1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  mas_y[1]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за февраль месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn2.Show;
  BitBtn1.Hide;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  mas_y[2]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите ссуму за март месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn3.Show;
  BitBtn2.Hide;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  mas_y[3]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за апрель месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn4.Show;
  BitBtn3.Hide;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  mas_y[4]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за май месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn5.Show;
  BitBtn4.Hide;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  mas_y[5]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за июнь месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn6.Show;
  BitBtn5.Hide;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  mas_y[6]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за июль месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn7.Show;
  BitBtn6.Hide;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  mas_y[7]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за август месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn8.Show;
  BitBtn7.Hide;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
  mas_y[8]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за сентябрь месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn9.Show;
  BitBtn8.Hide;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
  mas_y[9]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за октябрь месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn10.Show;
  BitBtn9.Hide;
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin
  mas_y[10]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за ноябрь месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn11.Show;
  BitBtn10.Hide;
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
  mas_y[11]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Введите сумму за декабрь месяц';
  Edit1.Text:='';
  Edit1.SetFocus;
  BitBtn12.Show;
  BitBtn11.Hide;
end;

procedure TForm1.BitBtn12Click(Sender: TObject);
var
 i:integer;
begin
  mas_y[12]:=StrToFloat(Edit1.Text);
  Label1.Caption:='Сейчас можно произвести печать';
  x:=0;
  mas_y[0]:=0;
  for i:=0 to 12 do
    begin
      Chart1.Series[0].AddXY(x,mas_y[i]);
      Chart1.Series[1].AddXY(x,mas_y[i]);
      inc(x);
    end;
  Edit1.Text:='';
end;

procedure TForm1.BitBtn15Click(Sender: TObject);
var
  i:integer;
begin
  BitBtn1.Show;
  BitBtn2.Hide;
  BitBtn3.Hide;
  BitBtn4.Hide;
  BitBtn5.Hide;
  BitBtn6.Hide;
  BitBtn7.Hide;
  BitBtn8.Hide;
  BitBtn9.Hide;
  BitBtn10.Hide;
  BitBtn11.Hide;
  BitBtn12.Hide;
  Label1.Caption:='Введите сумму за январь месяц';
  Edit1.SetFocus;
  x:=0;
  for i:=0 to 12 do
    mas_y[i]:=0;
  Edit1.Text:='';
  Edit1.SetFocus;
end;

procedure TForm1.BitBtn13Click(Sender: TObject);
begin
  //Chart1.PrintProportional:=false;
  Chart1.Print;
end;

end.

[Stilet]

Текста будем много, как минимум строчек 15

Ну дык хоть мульйон в стрингах )

Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');
Chart1.Foot.Text.Add('Это первая строчка внизу');

Вот если память не изменяет то подписи в нижней оси вырисовываются так: Chart1.BottomAxis.DrawAxisLabel()

Вот вспомнил что за отрисовку лабелей в осях отвечает событие OnGetAxisLabel

[SERG1980]

На счёт отображения даты по осям:
в режиме редактирования выбери закладку Siries далее General
установи галку DateTime на любой из осей.