IMHO.WS - отчеты в Delphi

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - отчеты в Delphi (https://www.imho.ws/showthread.php?t=26260)

отчеты в Delphi

привет всем. подскажите, плиз, как при "заготовке" отчета (т.е. до команды preview), добавить в отчет вторую страницу? у меня все компоненты на одной не помещаются
заранее спасибо за помощь

а в чем делаеш отчеты?

Evgenechka
)
Делфи-то шестой? )))
Есть такая интересная штука - FastReport называется ) посмотри в интернете, почитай, скачай ))) И поставь )))

Re: отчеты в Delphi

Цитата:

Как писал Evgenechka
привет всем. подскажите, плиз, как при "заготовке" отчета (т.е. до команды preview), добавить в отчет вторую страницу? у меня все компоненты на одной не помещаются
заранее спасибо за помощь

Ты толком объясни чего не получается.
Fast Report вообще-то сам определяет сколько страниц необходимо сформировать.

на сколько я понял то что ты хочеш можно сделать через: правка- добавить страницу

Код:

 

procedure TMainForm.acPrintExecute(Sender: TObject);

var frPhoto, frMap: TfrPictureView;

frInfo: TfrView;

Page: TfrPage;

i: integer;

delta: integer;

begin

delta := 20;

frReport1.Pages.Clear;

if InfoPanel.SelCount = 0 then InfoPanel.SelectAll;

for i := 0 to InfoPanel.Items.Count - 1 do

        if InfoPanel.Items[i].Selected then

        begin

         frReport1.Pages.Add; // create page

         Page := frReport1.Pages[i];

         frPhoto := TfrPictureView.Create;

         frPhoto.SetBounds(delta, delta, Round(Page.pgWidth / 3), Round(Page.pgHeight / 6));

         frPhoto.Picture.LoadFromFile(currdir + PhotosDir + InfoPanel.Items[i].Caption + '.jpg');

         Page.Objects.Add(frPhoto);

         frInfo := TfrMemoView.Create;

         frInfo.BandAlign:=baWidth;

         frInfo.dy:=20;

         frInfo.y:=delta+Round(Page.pgHeight / 6)+20;

         frInfo.Memo.Add(InfoPanel.Items[i].Caption);

         Page.Objects.Add(frInfo);

         frMap := TfrPictureView.Create;

         frMap.SetBounds(20, frInfo.y + delta, Round(Page.pgWidth / 3), Round((Page.pgHeight / 6) * 0.75));

         frMap.Picture.LoadFromFile(currdir + Mapsdir + InfoPanel.Items[i].Caption + '.jpg');

         Page.Objects.Add(frMap);

        end;

frReport1.ShowReport;

end;

 

end.

А еще лучше посмтори вот это
http://www.fastreport.ru/ru/faq.php

народ подскажите что за траблы в FastReporte в preview устанавливаю на принтер размер листа А3 пичатаю - всё ОК, но когда в виндовсе устанавливаю А3 то в FastReporte стоит всё тот же А4.
Как-то надоедает ето править.
Как заставить FastReport поддерживать виндовс настройки принтера?